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OFRECEMOS 30 BECAS DE TRABAJO 


GRAFICOS Y SPRITES CON LA MSX1 


Encienda 
una computadora 

Talent/^ 

y sus perifericos. 



MODEM 

• Interfaz asincronica incorporada. 

• Normas BELL y CCITT, 300 y 
1.200 baud io,s. 

• Incluye en 80 Kb software/ 
de comunicaciones. / 
MSX-PLAN / 

y MSX-WRITE. y* 


UNIDAD DE DISCOS FLEXIBLES 

• 5 1/4' de 360 Kb (DS-DD) 

• Velocidad transferencia 
250 Kb/sg. 

• Formato grabacion 
compatible 

MS-DOS. 


IMPRESORA 


EQUIPO CENTRAL 
PROFESOR 


EQUIPO ALUMNO 


RS-232 

• Velocidades programables desde 
50 a 19.200 baudios. — 

• Procesamiento de 
comunicaciones 
desde Basic. 

• Buffer de 128 
caracteres y 
para 

recepcion U 


EQUIPO ALUMNO 


(RED PARA US0 EDUCACI0NAL) 

• Comunicacion por Ifnea compartida 
a 30.000 baudios. 

• Comparte unidades de disco 

e impresoras de consola MSX maestro 
con hasta 10 consolas MSX alumno 

• Carga simultanea de un programa a 
todos los alumnos. 

• Carga individual de maestro a alumno 

• Salvado de programa alumno a unidad 
de disco maestro. 

• Salida a impresora de maestro del 
listado de programa alumno. en 
spooling. 

• Funciona desde MSX-Basic. 

MSX- Logo o cualquier programa que 
corra desde Basic. 

• Estando activa. se dispone de todo el 

MSX-Basic. 


MONITOR 

MONOCROMATIC0 12 

• Anti-reflejo - Fosforo verde. 

• Apto para uso profesional. 

• (80 caracteres x 25 lineas). 

• Parlante con amplificador 
incorporado. 


EXPANSION 80 COLUMNAS 

• Hace posible la utilizacion de 
software estandar CP/M. 
emulando terminal tipo VT-52. 

• Incluye software para 
maneio de video. 


Software 


MSX-WRITE 

Procesador de 
palabrade ASCII 
Corp. en castellano. 


Talent 

Tecrologia y Talento^ % 


MSX-L0G0 

MSX-LPC 

MSX-PLAN 

Desarrollado por Logo 

Lenguaje de 

Planilla de calculo 

Computer System Inc. con 

programacion 

de Microsoft Corp. 

aplicacion de primitivas y 

estructurado y 

(Version para MSX 

redaccion del Manual por 
los Ings. Hilario Fernandez 
Long y Horacio Reggini. 

en castellano. 

del Multiplan.) 


TECLAD0 NUMERIC0 

MOUSE 


• Codigo DPM-220. 


accesorio para graficar. 




vw 

• Conexion a Joystick 


• Se integra a todo el 


software que corre 


bajo MSX-D0S 


(Ej.: D-Base II. 


MSX-Plan. etc.) 



Producida en San Luis por Telematics S.A. licenciataria exclusiva de Microsoft Corp. y ASCII Corp. para uso de la norma MSX en Argentina. 
6 meses de garantia y mensualmente en su quiosco la revista Load MSX. 
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MSX1 


Este programa nos sor- 
prende con las cosas que 
podemos lograr con el 
mencionado lenguaje. 
(Pig. 10) 


cia Talent de Flores se 
desarrolla una de las acti- 
vidades relacionadas con 
la informatica que mas 
esti creciendo: la roboti- 
ca. (Pag. 16) 



SONIDOS EN 
LENGUAJE C 


Mostramos una aplica- 
cion en lenguaje C en la 
que podemos observar 
sus diferencias y simili- 
tudes con el BASIC. El 
"C" es uno de los lengua- 
jes mds usados actual- 
mente. (Pag. 21) 


Gracias a la norma MSX 
el procesamiento de grd- 
ficos de alta calidad y en 
colores es una de las a- 
plicaciones que se ha di- 
fundido ampliamente. 
(Pag. 6) 
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Las posibilidades del 
LOGO son mayores que 
las que muchos suponen. 
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USUARIO 


En el Centro de Asisten- 
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Desgrabadora de Holter 
neurologico de 4 canales 

Nuevamente se lanzo un equipo de 
aplicacion medica para las 
MSX2. 

En este caso se trata de un 
equipo de desgrabacion 
Holter, que permite reali- 
zar el estudio y posterior 
informe de los casetes ob- 
tenidos en el proceso. 

El estudio de Holter neu- 
rologico funciona de la si- 
guiente manera: en ciertos 
casos en que se sospecha 
de alguna anomalia neuro- 
logica se procede a reali- 
zar un monitoreo conti- 
nuado del paciente 
durante 18 o 24 horas me- 
diante un electroencefalo- 
grama. 

Los datos obtenidos se 
graban en un casete y la 
grabadora que se utiliza se 
llama (obviamente) Hol- 
ter. Es similar a un "walk- 
man", con la diferencia de 
que sirve solo para grabar 
la senal de los electrodos (se utili- 
zan las cuatro pistas del casete este- 
reo -dos por cada lado- en forma si- 
multanea), y que funciona a una 
velocidad proporcionalmente mas 
lenta, de manera que en un casete 
C90 (45 minutos por lado) almace- 
na 18 horas de estudio. 

La unidad central incorpora el re- 
productor de casete, un reloj para 
saber la hora actual (segun el case- 
te), y los distintos controles para po- 
ner en hora el reloj y seleccionar la 
velocidad de desgrabacion. 

Posee una interfase para conectar la 
computadora es un cartucho especf- 
fico que permite introducir las sefia- 


les del equipo en la MSX2. 

Y trabaja con una configuration 
completa MSX2 (consola, monitor 
monocromatico, unidad de discos e 
impresora), que la empresa provee 


si el usuario no posee su propia 
computadora. 

Desgraba casetes de 18 a 24 hs. de 
grabacion. 

Consta de cuatro velocidades de 
desgrabacion. Por ejemplo, para 
desgrabar un casete de 18 hs. se 
pueden ir viendo los 4 canales en 
forma simultanea por pantallas que 
abarcan cada una i2" de grabacion. 
En. forma sencilla el profesional 
puede aminorar o acelerar a su gus- 
to la desgrabacion en cuatro nive- 
les:18 hs/ 30 minutos, 18 hs/ 60 mi- 
nutos, 18 hs/120 minutos y 18 hs/240 
minutos 

Es decir, cuando el profesional ve 


algun detalle que merece estudiarse, 
detiene la cinta y puede ampliar la 
pantalla de manera que en lugar de 
los 12", sean 8, 4 o 2 segundos. Es 
importante aclarar que el equipo 
permite tambidn el monito- 
reo por audio, al que estan 
acostumbrados muchos pro- 
fesionales. Cada evento que 
sea conveniente conservar, 
se guardara en la memoria 
de la computadora con una 
amplitud de cinco minutos 
de duration. Por lo tanto va 
a tener el momento anterior 
y posterior al caso estudia- 
do. 

Asi continua estudiando la 
grabacion y puede almace- 
nar en cada archivo series 
de 10 eventos de cinco mi- 
nutos cada una. 

Los detalles importantes se 
pueden sacar por impresora. 
La information, tanto en el 
disco como en impresora, 
se ampha con un grafico de 
la ubicacion de los electro- 
dos y la redaction completa 
del informe del estudio rea- 
lizado. 

Ademas, el software incluido en el 
equipo puede ser adaptado a gusto 
del profesional sin costo adicional. 
Vimos en funcionamiento un equipo 
que se instalo en un consultorio 
neurologico de Moron, y los profe- 
sionales comentaban que la versati- 
lidad que obtienen con este equipo 
no la vieron en otros equivalentes e- 
xistentes en el mercado de electro- 
medicina. 

Nuevamente, estos importantes de- 
sarrollos para mercados verticales 
demuestran la capacidad de amplia- 
tion que nos brinda la norma MSX. 

Hugo Daniel Caro 




Sin duda Chance ya ha sido consagrado como el juego mas popuiai 
en todo el pais. 

Pero, detras de todo gran exito hay una muy buena razon. Por eso detrds 
de Chance, usfed siempre encontrara a El Cronista Comercial. 

Un exito editorial que se escribe con la mas complete informacion. 

Desarrollada a traves de un lenguaje daro y abierto. 

Y con la perspective economica necesaria para comprender mejor 
la actualidad. 

Hoy, quienes juegan con Chance, saben que la mejor informacion 
no es juego. 

El Cronista Comerciai 

Su chance de asociarse al exito. 




COLOR, GRAFICOS Y 
SPRITES EN MSX1 

Gracias a la norma MSX el procesamiento de graficos de alta calidad y en colores, 
es una de las aplicaciones que se ha difundido ampliamente. 



M ientras que la mayorla de las 
computadoras utilizan su CPU para 
realizar todas las tareas, incluso las 
que se relacionan con la representa- 
tion de graficos, las de la norma MSX 
(y con anterioridad, la venerable 
Texas Instruments TI-99/4A) incor- 
poraron la idea de utilizar un procesa- 
dor dedicado a la parte grafica: el 
VDP (Video Display Processor, Pro- 
cesador de Pantalla de Video). Este 
procesador , que en el caso de las MS X 
nacionales es el TMS-9929A, se en- 
carga de realizar la tarea de presentar 
la pantalla con sus respectivos colo- 
res , traducir los patrones de caracteres 
para que se los vea correctamente, 
manejar los sprites, etcetera. Incluye 
para su utilization 16 kbytes de RAM 
de uso exclusivo: la denominada Vi- 
deoRAM (VRAM). Las direcciones 
validas de memoria VRAM son de 0 
a 16383 (&H00 00 a &H3FFF). Las 
computadoras de la norma MSX 
(tanto en la version 1 como la 2) nos 
brindan la posibilidad de mostrar por 
- pantalla una amplia variedad de grafi- 
cos en colores y sprites. Esto nos 
permite hacer nuestros programas 
mas vfvidos e interesantes . Existen 
cuatro modos de pantalla: modo tex- 
to, graficos, multicolor y bit-map. En 
el modo texto (que es el que se utiliza 
al encender la computadora) se pue- 
den utilizar caracteres ASCII estan- 
dar y definir otros nuevos . Todos los 
caracteres 'se muestran en un colory el 
fondo de la pantalla ,en btro. La panta- 
lla posee 40 columnas por 24 llneas. 
Equivale al modo que invoca el co- 


mando SCREEN 0. En el modo grafi- 
co, se pueden utilizar los caracteres 
ASCII estandar y otros definidos por 
el usuario. Se pueden fijar los colores 
defrentey de fondo en gruposde8 
caracteres. La pantalla es de 32 co- 
lumnas por 24 llneas. Equivale al 
modo SCREEN 1. En el modo bit- 
map, se puede setear cualquier pixel 
(el punto mas pequefio de la pantalla) 
encendido o apagado, y elegir el co- 
lor. La pantalla posee 256 columnas 
por 192 llneas. Equivale a SCREEN 
2. En el - modo multicolor, se pueden 
setear los colores de una cantidad de 
pequefias cajas.'La pantalla posee 64 
columnas por 48 llneas. Equivale a 
SCREEN 3. En todos los modos, 
excepto en el texto, se pueden crear y 
colocar en movimiento hasta 32 spri- 


tes (graficos moviles) sobre la panta- 
lla. 

REGISTROS DEL VDP 

Como se dijo anteriormente, el VDP 
es, por derecho propio, un CPU dedi- 
cado a la tarea de manejar la pantalla. 
Posee su propia RAM y registros que 
permiten su uso. La norma MSX faci- 
lita el acceso a los mismos a traves de 
las variables del sistema conocidas 
como VDP(). A continuation dare- 
mos una descripcion completa de los 
registros del VDP, e indicaremos en 
cada caso los valores por defecto de 
los modos de pantalla. Estos son re- 
gistros de escritura solamente. 

La MSX puede “leerlos” utilizando 
un viejo truco: antes de enviar un dato 



al registro de VDP correspondiente, 
lo almacena en la memoria para que el 
usuario pueda leer. Para describir los 
bits emplearemos la convention utili- 
zada por Texas Instruments y el 
manual de la Talent DPC-200, es 
decir: 

+-bit 7 

l 

00000000 

f 

+-bit 0 

Es contrario al utilizado habitualmen- 
te; esto significa que el bit 7 es el 
menos significative) (el del extremo 
de la derecha), cuando por conven- 
cion siempre se designa como bit 7 al 
mas significativo. 

Los registros son: 

Registro VDP 0 (VDP(0)) 

Los valores por defecto de este regis- 
tro son: 

SCREENS - VDP(0)=&B00000000 
SCREEN: 1 - VDP(0)=&B00000000 
SCREENS - VDP(0)=&B00000010 
SCREEN: 3 - VDP(0)=&B00000000 
Donde 

Bits 0 a 5: Rescrvados. Deben ser 

000000. 

Bit 6: Bitdcmodo3,llamadoM3. 

Si este bit esta encendido, la pantalla 
cstaen modo bit-map. (Vcaseel valor 
de SCREEN 2). 

Bit 7: Habilita/inhabilita cl video 

externo. Un valor dc 1 habilita el 
video externo, mientras que un valor 
de 0 lo inhabilita. Nota: cl bit 7 solo 
tienc significado para cl TMS 99 18 A, 
version NTSC del VDP dc MSX. Por 
esta razon, el famoso cartucho de 

i i i i 'I I I 


superposition de imagenes para la 
MSX1 nunca salio al mercado, ya que 
el TMS9929A, a pesar de ser total- 
mente compatible con el 99 18 A, no 
posee la conexion para utilizarlo. 

Registro VDP 1 (VDP(l)) 

Los valores por defecto de este regis- 
tro son: 

SCREENS - VDP(1)=&B01 110000 
SCREEN: 1 - VDP(1)=&B01 100000 
SCREENS - VDP(1)=&B01 100000 
SCREENS - VDP(1)=&B01 101000 
Este registro maneja las interrupcio- 
nes del VDP y del CPU, asf que hay 
quetener cuidadoalmodificarlopues 
se puede “colgar” la maquina. 

BitO: Selection 4/16kbytes de 
VRAM. El valor 0 selecciona 4 
kbytes y el valor 1 selecciona 16 
kbytes . 

Bitl: Habilita/inhabilita la pantalla. 
Un valor 0 hace que la pantalla acti va 
(toda la pantalla) se apague, y un valor 
1 permite que se muestre. Con el valor 
0, solo se ve el color de borde. 

Bit 2: Habilita/inhabilita las inte- 

rrupciones. Un valor 0 inhabilita las 
interrupciones de VDP, mientras que 
el valor 1 las habilita. 

Bit 3: Bit de modo 1, llamado Ml. 

Cuando esta encendido, la pantalla 
estaen modotexto. 

Bit 4: Bit de modo 2, llamado M2. 
Si este bit esta encendido, la pantalla 
esta en modo multicolor. 

Bit 5: Reservado, debe ser 0. 

Bit6: Seleccion del tamano de sprite. 
El valor 0 selecciona el tamano estan 
dar, y el 1 el tamano doble. 

Bit7: Seleccion de magnification de 


sprite. El valor 0 selecciona sprites sin 
magnification, y el 1 los magnifica. 

Registro VDP 2 (VDP(2)) 

Los valores por defecto de este regis- 
tro son: 

SCREEN: 0 - VDP(2)=&B00000000 
= BASE(0)=&H0000 
SCREEN: 1 - VDP(2)=&B00000110 
= BASE(5)=&H1800 
SCREENS - VDP(2)=&B000001 10 
= BASE(10)=&H1800 
SCREENS - VDP(2)=&B000000 1 0 
= BASE(15)=&H0800 
Define la direccion base de la Tabla 
de Imagen de Pantalla en la Video- 
RAM. Esta direccion se calcula mul- 
tiplicando por jH400 el valor del 
registro. En cada caso colocamos el 
valor equivalente de la variable del 
sistema BASE. 

Registro VDP 3 (VDP(3)) 

Los valores por defecto de este regis- 
tro son: 

SCREENS - VDP(3)=&B 11111111 

- BASE(l)=(sin aplicacion) 
SCREEN: 1 - VDP(3)=&B 10000000 

- BASE(6)=&H2000 
SCREENS - VDP(3)=&B 11111111 

- BASE(11)=&H3FC0 
SCREENS - VDP(3)=&B 11111111 

- BASE(16)=&H3FC0 

Define la direccion base de la Tabla 
de Colores. Esta direccion se calcula 
multiplicando por &H40 el valor del 
registro. En cada caso colocamos el 
valor equivalente de la variable del 
sistema BASE. 
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Registro VDP 4 (VDP(4)) 

Los valores por defecto de 
este registro son: 

SCREENS 

VDP(4)=&B00000001 - 
BASE(2)=&H0800 
SCREENrl 

VDP(4)=&B00000000 - 
BASE(7)=&H0000 
SCREENS 

VDP(4)=&B0000001 1 - 
BASE(12)=&H0000 (ver 
la descripcion de bit-map) 
SCREENS 

VDP(4)=&BOOOOOOOO - 
B ASE(1 7)=&H0000 
Define la direccion base 
de la Tabla de Descrip- 
cion de Patrones. Esta di- 
reccion se calcula multi- 
plicando por &H800 el 
valor del registro. En cada 
caso colocamos el valor 
equivalente de la variable 
del sistema BASE. 

Registro VDP 5 (VDP(5» 

El valor por defecto de 
este registro es: 

VDP(5)=&B001 101 10 = 

BASE(3) = BASE(8) = 

BASE(13) = BASE(18) = &H1B00 
para todos los modos de pantalla. 
Define la direccion base de la Lista de 
Atribu tos de Sprites. Esta se calcula 
multiplicand© el valor de registro por 
&H80. En el caso del modo texto, 
BASE(3) no tiene significado. 

Registro VDP 6 (VDP(6)) 

El valor por defecto de este registro 
es: 

VDP(6)=&B000001 1 1 = BASE(4) = 
BASE(9) = BASE(14) = BASE(19) = 
&H3800 

para todos los modos de pantalla. 
Define la direccion base de la Tabla 
de Descripcion de Patrones de Spri- 
tes. Se calcula multiplicando el valor 
de registro por &H800. En el caso del 
modo texto, BASE(4) no tiene signi- 
ficado. 

Registro VDP 7 (VDP(7)) 

Los valores por defecto de este regis- 
tro son: 


SCREENS - VDP(7)=&B1 11 10100 
SCREEN: 1 - VDP(7)=&B00000100 
SCREENS - VDP(7)=&B00000100 
SCREENS - VDP(7)=&B00000100 
Bits 0-3: Codigo decolor del color 
de frente en modo texto. 

B its 4 - 7 : Codigo de color del color 
de fondo en todos los modos. Los bits 
de modo Ml, M2 y M3 estan en los 
bits 3 y 4 del Registro 1 y en el bit 6 del 
Registro 0. Determinan el modo de la 
pantalla. La siguiente tabla muestra 
los valores de los mismos para cada 
modo de pantalla. 


Ml 

M2 

M3 

Modo 

0 

0 

0 

SCREEN 1 

0 

0 

1 

SCREEN 2 

0 

1 

0 

SCREEN 3 

1 

0 

0 

SCREEN 0 


MODOS DE PANTALLA: 
LA INSTRUCTION 
SCREEN 

a) MODO GRAFICO - SCREEN 1 
En el modo grafico, se pueden utilizar 
caracteres ASCII estandar, y definir 
patrones de caracteres y sus colores 
de frente (de los puntos encendidos) y 
de fondo (de los puntos apagados). La 
pantalla esta compuesta por 32 co- 
lumnas con 24 llneas. Se pueden uti- 
lizar sprites. Los colores y graficos 
estan disponibles al definir cada uno 
de los 256 caracteres y setear sus co- 
lores de frente y fondo. El conjunto de 
caracteres ASCII estandar y extendi- 
do esta definido por el software del 
sistema MSX. 

a. 1 ) Tabla de Descripcion de Patrones 
Contiene descripciones de los 256 
patrones o caracteres. Si se cambian 
estas descripciones, se puede alterar 





estas descripciones, se puedc alterar 
la apariencia del caracter en pantalla. 
Hemos disculido estas descripciones 
en el Rincon del Usuario Talent algu- 
nos numeros atras. Como vimos, la 
Tabla dc Descripcion de Patrones en 
SCREEN 1 esta en la direccion 
&H0000. Luego, la descripcion del 
caracter 0 ocupa de &H0000 a 
&H0007, la del caracter 1 ocupa de 
&H0008 a &H000F, y el caracter 255 
de &H07F8 a &H07FF. 

t 

a.2) Tabla de Colores 
Contienc las descripciones de los 
colorcs dc frente y fondo de los carac- 
tcrcs. Los cuatro bits mas significati- 
vos dc cada byte representan cl color 
dc frente y los cuatro bits mcnos sig- 
nificativos, el color de fondo. Cada 
byte espccifica cl color dc un gr upo 
de ocho caractcrcs. Los 16 colorcs 
disponibles en las computadoras 
MSX y sus codigos decimates se 


listan a continuacion: 

En SCREEN 1 , esta tabla esta ubicada 
a partir dc &H2000. Los caractcrcs 0 
a 7 ti cncn cl color de frente y de fondo 


especificado por el byte en la direc- 
ci6n &H20 00, los caracteres 8 a 15, 
en &H2001 y asf sucesivamente. Por 
ejemplo, cuando se invoca el coman- 
do COLOR 15,4, el MSX BASIC) 
coloca en toda la tabla el valor &HF4. 
Para cambiar el color de un grupo par- 
ticular de caracteres, se debe utilizar 
el comando VPO KE. 

a.3) Tabla de Imagen de Pantalla 
Precisa los caracteres que ocupa cada 
una dc las posicioncs dc pantalla. 
Cada byte espccifica cl caracter de 
una posicion dc pantalla. Las 768 po- 
sicioncs de pantalla en SCREEN 1 
estan armadas en 24 filas dc 32 co- 
lumnas. En cstc modo, la tabla co- 
in ienza en &H1800. Las primeras 32 
dircccioncs (dc ;H180 0 a &H181F) 
contiencn los caracteres dc laprimera 
fila, las 32 dircccioncs rest antes 
(&H1 820 a &H183F) conticne los de 
la segunda fila, y as! sucesivamente. 

Por ejemplo, si el valor 
&H41 (el codigo 
ASCII del caracter 
“A”) se coloca en 
&H1822 con VPOKE, 
el caracter descripto en 
las dircccioncs desde 
&H0208 a &H020F en 
la Tabla de Descrip- 
cion de Patrones apa- 
rece en la tcrcera co- 
lumna de la segunda 
fila, y asume que la 
Tabla de Descripcion comicnza en 
&H0000. 

b) MODO TEXTO - SCREEN 0 


Color 

Codigo 

Color Codigo 

Transparente 

0 

Rojo medio 

8 

Negro 

1 

Rojo claro 

9 

Verde medio 

2 

Amarillo oscuro 

10 

Verde claro 

3 

Amarillo claro 

11 

Azul oscuro 

4 

Verde oscuro 

12 

Azul claro 

5 

Magenta 

13 

Rojo oscuro 

6 

Gris 

14 

Celeste 

7 

Blanco 

15 




En modo texto, la pantalla es de 40 
columnas por 24 llneas. No se pueden 
utilizar sprites. Las tablas empleadas 
para generar los patrones son las 
mismas que las usadas en las Tablas 
descriptas anteriormente (con excep- 
tion de la de Colores, que no existe en 
este modo). 

Sin embargo, ya que se utilizan 960 
posiciones de pantalla contra las 768 
del SCREEN 1 , la Tabla de Imagen de 
Pantalla es mas larga. 

Las definiciones ignoran los dos ulti- 
mos bits en cada entrada, de manera 
que los caracteres tienen 6 por 8 
pixcles de definition. Es el modo 
normal de inicio en MSX. 

Los dos colores disponibles en el 
modo texto estan definidos en cl 
Registro 7 de 1 VDP. 

Los cuatro bits mas significativos 
definen el color de los bits enccndido 
s (frente) y los restantes, el de los 
apagados (fondo). Por ejemplo, si la 
Tabla de Imagen de Pantalla empieza 
en la direccion &H0000 y el valor 
&H41 se coloca en la direccion 
&H0202, el sunbolo ASCII “A” se 
ubica en la columna 35 de la fila 13. 
En el modo grafico, sin embargo, esta 
direccion y este valor harfan que la 
“A” apareciera en la tercera columna 
de la fila 17. 

Continuaremos con la descripcion dc 
los modos dc pantalla c incluircinos 
algunos programas dc aplicacion en 
la proxima nola. 


Hugo Daniel Caro 
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ROMPECABEZAS 

Autor: Arq. Jorge Larumbe 
Tipo: Juego 
Lenguaje: LOGO 

Mention del Cuarto Concurso de Programas 


Las posibilidadcs del LOGO son 
mayorcs que las que muchos supo- 
ncn. Dfa a dfa nos sorprendemos con 
las cosas que podemos lograr con es- 
tc lenguaje. 

En el numero anterior ofrecimos un u- 
tilitario (base de datos) y en el presen- 
tc un divertido rompecabezas que no 
solo servira de entretenimiento para 
los mas pequenos, sino que podremos 
aprendcr de la mctodologfa de pro- 
gramacion utilizada. 

El programa sc puede dividir en dos 
partes. En primer termino, encontra- 
mos la formacion de imagenes que o- 
cupa practicamcntc toda la pantalla. 
En la segunda parte, la imagen se 
transforma en un rompecabezas que 
deberemos armar. 

FORMACION DE 
IMAGENES 

La imposibilidad de las MSX de mos- 
trar mas de cuatro tortugas en linca 
nos limita muchas voces para la crea- 
tion de imagenes de gran tamano. 
Para superar csta dificultad podemos 
utilizar la orden “estampar” que, uni- 
da al “ffig” como variable, nos da la 
posibilidad de invcnlar tantas image- 
ncs como nucstra imagination lo per- 
mita. 

Vayamos por partes: 

- El proccdimicnto “modulo” ticne 
diecisictc variables; la primera res- 
pondc al color de pluma y las otras 
dicciscis a las distintas formas de tor- 
tuga que “cstampadas” formaran un 
modulo cuadrado de cuatro tortugas 
por lado. Estas formas de tortuga son, 
a su vez, submodulos. Las rcalizamos 
mediante cl editor de figuras (cdfig) 



Figura 1 


con las formas que 
muestra la figura 2. 

- El procedimiento 
“modulo” nos per- 
mite crear cual- 
quier imagen de 
cuatro tortugas por 
lado. A su vez este 
procedimiento, u- 
bicado en nueve 
posiciones de pan- 
talla, nos propor- 
ciona una buena i- 
magen de 3x3 mo- 
dulos (12x12 tortu- 
gas = i 144 tortu- 
gas!). 

- Con cl procedi- 
miento “ubicar” 
podemos colocar 

las nueve tortugas. - Es importante 
tener disenada de antemano una ima- 
gen (que podra servirnos para nucs- 
tros juegos o pantallas de presenta- 
tion). Para ello nos conviene dibujar- 
la antes en un papcl cuadriculado de 
12x12 con cualquicra de las veinte fi- 
guras editadas. En la figura 1 pode- 
mos observar un ejemplo. 

- Una vez que disenamos la figura, la 
dividimos en nueve cuadrados (mo- 
dulos) de dicciscis cuadraditos cada 
uno, como se vc en la figura 1 . Los 11a- 
mamos al, a2, a3, bl, b2, b3, cl, c2, 
c3. 

- Lucgo los ingresamos a la computa- 
dora y los aimacenamos con “modu- 
lo”. 

- Es de dcstacar que para cada “pieza” 
se usaron dos modulos porque cada u- 
no de ellos estampa un color distinto, 
y una vez superpuestos nos dan una 
pieza en dos colores. 

- Una vez cargados los nueve modu- 
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los, tenemos que ubicar 
la imagen completa con 
las nueve tortugas distri- 
buidas mediante el pro- 
cedimiento “ubicar”. Fi- 
nalmente, con el proce- 
dimiento “imagen” po- 
dremos verla. 

- Si queremos guardar en 
archivo las veinte figu- 
ras, deberemos usar el 
procedimiento “acor- 
dar”. Para recuperar po- 
demos usar el procedi- 
miento “poner”. 

EL ROMPECA- 
BEZAS 


Una vez que hemos lo- 
grado la “imagen” me- 
diante los procedimien- 
tos anteriores, podemos 
convertirla en un diverti- 
do jucgo de rompecabe- 
zas. 

El juego funciona de la 
siguiente manera. Apa- 
recera la imagen del pa- 
yaso u otra que hayamos 
preparado. Oprimiendo la tecla “m”, 
las nueve piezas (modulos) se mez- 
claran y veremos en el centro una tor- 
tuga movil que podremos dirigir con 
las teclas“i” (arriba), “m” (abajo), “j” 
(izquierda) y “1” (derecha). 

Cuando tenemos localizada la tortuga 
en alguna de las piezas que queremos 
cambiar, apretemos “b” para borrar, 
llevemosla a la posicion correcta y, 
presionando “c”, se intercambiaran 
las piezas. Cuando el rompecabezas 
este correctamente armado, una me- 
lodia nos lo anunciara. 

DESCRIPC8QN DE 
PROGRAMAS 

- Mezcla de modulos 
El programa “mezcla”, de nueve va- 
riables, activa las tortugas y a cada u- 
na de ellas le asigna un modulo distin- 
to segun la variable. Como no pode- 
mos usar un procedimiento como va- 
riable, lo hacemos indirectamente 
mediante el programa “col:x”. A su 
vez va formando 9 listas (pl,p2,...,p9) 


asigndndole a cada una de ellas el mo- 
dulo mezclado que le toco. El progra- 
ma “mezclar” elige al azar cuatro po- 
sibilidades de mezcla. 

- La tortuga trabajando 

Para que la tortuga aparezca y co- 
rn ience a actuar hacemos primero el 
programa “tortuga” y luego el proce- 
dimiento recursivo que llamamos 
“actuar” y que contiene una serie de 
condiciones. La primera es un sub- 
programa (“s”) que controla la colo- 
cacion correcta de las piezas. Cuando 
esto ocurre, suena una melodia. El 
resto del programa es una lista de con- 
diciones referidas a las letras que se 
pulsan. Cuatro de ellas (l,m,j y 1) dan 
movilidad a la tortuga. La letra “b” 
nos deriva al procedimiento “sustra- 
er” y la “c” al procedimiento “colo- 
car”. 

- El corazon del programa. El inter- 
cambio de piezas se logra mediante 
un conjunto de listas. El programa 
“saberpos” activa cada una de las nue- 
ve tortugas ubicadas anteriormente 
de acuerdo a la posicion relativa de la 


tortuga movil. 

El programa “sustraer”, una vez que 
activa la tortuga correspondiente, bo- 
rra el modulo y simplemente lo reem- 
plaza por otro que tenga el color de 
fondo de la pantalla. 

Mediante el procedimiento “anali- 
zar 1 ” se guarda en la lista “cl” el mo- 
dulo que contiene la tortuga activa y 
se ubica en otra lista, “ql ”, el numero 
de tortuga.Despues que la tortuga bo- 
rro y almaceno el modulo que quere- 
mos cambiar de lugar, la llevamos a la 
posicion correcta. Al pulsar la tecla 
“c” comenzara a funcionar el procedi- 
miento “colocar” que realizara los in- 
tercambios de listas correspondien- 
tes.Por ultimo, los procedimientos 
“pantalla” e “instrucciones” se encar- 
gan de hacer la presentacion y dar las 
instrucciones del juego. 

Para comenzar tenemos que presio- 
nar “z” y luego RETURN. 

El autor del programa es arquitecto de 
profesion y, junto con su hijo Federi- 
co, un ferviente usuario de la Talent 
DPC 200 y fanatico del LOGO. 




para a 
Dp i magen 
f cursor CO 213 

esc L'PARA DESARMAR PULSA "d" + RET 

URN 3 

fin 

p “Sr a a 1 

modulo 90111111111111 
1 1 1 

modulo 1 11 1 1 1 1 1 1513 0 15 
1 0 6 15 
Tin 

para a 2 

modulo 90000111111111 
1 1 1 

modulo 1 12 0 0 11 Q 10 10 0 0 0 0 
0 8 0 0 6 
Tin 

para a 3 

modulo 9 1 1 1 12 1 1 1 i 1 1 1 1 
1111 

modulo 5 1 1 1 12 4 1 1 1 15 0 4 1 

15 S 0 1 
tin 


f cursor CO 213 

esc Erequetebien LOCO! ! ! I 3 

fin 

para bl 

modulo 9015 0 012001 1 1 0 
1 1 1 

modulo 1 14 0 6 9 11 0 8 10 14 0 0 
7 0 0 0 0 
fin 

para b2 

modulo 94115311211111 

111 

modulo 6800660080 11 12 0 

0 14 13 0 
fin 

para b3 

modulo 9041003101 1 101 

1 1 0 

modulo 1 9 8 0 13 10 6 0 12 7 0 0 

13 0 0 0 0 

fin 

para cl 

modulo 90111111111111 


para acordar 
hacer "fig.fO obfi 
"fig.fl obfi 
M fig.f2 obfi 
”fig.f3 obfi 
LQ 

ig 
ig 
ig 
iQ 


hacer 

hacer 

hacer 

hacer 

hacer 

hacer 

hacer 

hacer 

hacer 


q 
g 
g 
g 

"fig.f4 obfig 
"fig.fS obfig 
" f i g . f 6 obfig 
"fig.f7 obfig 
"fig.fS obfig 


"fiq.f9 obfig 


1 1 1 

modulo 6 0 0 0 11 1 2 0 14 1 1 2 0 
1111 
fin 

para c2 

modulo 91111100111111 
1 1 1 

modulo 6 12 17 17 
13 0 2003 
fin 


11 1 5 4 1 0 14 


hacer 

"fig. f 10 obfig 10 

para c3 




hacer 

"fig.fll obfig 11 

mbdul o ‘ 

9 1 

.110 

1111 

hacer 

"f i g. f 12 obfig 12 

1 

1 1 




hacer 

"fig.Tl3 obfig 13 

modulo < 

6 3 

2 0 0 ( 

0 13 0 3 

hacer 

"fig. f 14 obfig 14 

1 

1 1 

1 



hacer 

"fig.t* nbfig 15 

fin 




hacer 

"fig.fl6 obfig 16 






hacer 

"fig. f 17 obfi o 17 

para cambiar 1 sx 


hacer 

"fig.fia obfig 18 

si 

: x : = 

1 

Ehacer 

"pi SClJ 

hacer 

"fig.fl9 obfig 19 

si 

5 X 

2 

Ehacer 

"p2 s cl 3 

fin 


si 

• )! = 

3 

Ehacer 

"p3 scl3 



si 

5 X *■= 

4 

Ehacer 

"p4 : c 1 3 

para actuar 

si 

: x = 

5 

Ehacer 

"p5 :ci3 

s 


si 

s X “ 

6 

Ehacer 

"p6 s c 1 3 

hacer 

"P 1c 

si 

SX ”■ 

7 

Ehacer 

"p7 set 3 

si s p 

- "1 Efrumbo 90 ad 15 tic 3 

si 

» X s 

8 

Ehacer 

"p8 s c 1 3 

si sp 

= "id Efrumbo 180 ad 15 tic 3 

si 

S X = 

9 

Ehacer 

"p9 s c 1 3 

si s p 

= "i Efrumbo 0 ad 15 tic3 

fin 




si s p 

= " j Efrumbo 270 ad 15 tic3 






si sp 

= "h Esustraer3 

para cambi ar2 sx 


si s p 

= "c Ecolocar3 

si 

S X = 

1 

Ehacer 

"pi s c23 

actuar 

si 

S X = 

2 

Ehacer 

"p2 :c23 

fin 


si 

S X - 

3 

Ehacer 

"p3 sc23 



si 

S X =- 

4 

Ehacer 

"p4 s c23 

para - 

analizarl sx 

si 

: x = 

5 

Ehacer 

"p5 s c23 

si sx 

=* 1 Ehacer "cl spl3 

si 

S x = 

6 

Ehacer 

"p6 s c23 

si S X 

~ 2 Ehacer "cl : p23 

si 

: x = 

7 

Ehacer 

"p7 sc23 

si 5 X 

™ 3 Ehacer "cl :p33 

si 

S x = 

8 

Ehacer 

"p8 s c23 

si s x 

« 4 Ehacer "cl :p43 

si 

3 X = 

9 

Ehacer 

"p? s c23 

si s x 

= 5 Lhacer "cl sp53 

fin 





si s x 

* 6 Ehacer "cl sp6J 






si s x 

« 7 Ehacer "cl :p73 

para col s 

X 


si s x 

“ 8 Ehacer "cl sp83 

si 

S X = 

1 

Eal 3 


si s x 

= 9 Ehacer "cl :p93 

si 

: x ~ 

2 

La23 


fin 


si 

sx 

3 

Ea33 




si 

: x = 

4 

Eh l 3 


para < 

anaiizar2 sx 

si 

; x = 

5 

Eb23 


si s x 

= 1 Ehacer "c2 :pl3 

si 

: x -■ 

6 

Eb33 


si : x 

~ 2 Ehacer "c2 :p23 

si 

s x = 

7 

Cel 3 


si s x 

= 3 Ehacer "c2 sp33 

si 

sx = 

8 

L'c23 


si s x 

= 4 Ehacer "c2 sp43 

si 

; x = 

9 

Ec33 


si s x 

= 5 Ehacer "c2 sp53 

fin 





si sx 

= 6 Ehater "c2 sp63 






si s x 

= 7 Ehacer "c2 sp73 

para colocar 


S3 5 X 

- S Ehacer "c2 sp83 

sustraer 1 



si s x 

* 9 Ehacer "c2 sp93 

CDl 

item 1 

s c 1 son 


fin 

para anunciar 

cambi ar . col or 9 2 esperar 10 son 
cambi ar . col or 2 9 esperar 10 sin 
cambi ar . col or 9 2 esperar 10 son 
cambi ar . col or 2 9 esperar 10 sin 
on si n son 


cambi ar 1 quien 
activar : ql 
col item 1 s c2 
cambi ar 2 quien 
activar 10 
fin 

para d 


11111 


10 3 1 1 


bp ubicar 
mezcl ar 
tortuga 
actuar 
fin 

para i magen 
ubi car 

activar 1 al 
activar 2 a2 
activar 3 a 3 
activar 4 bl 
activar 5 b2 
activar 6 b3 
activar 7 ci 
activar 8 c 2 
activcir 9 c3 
fin 

para i nstrucci ones 
bp 

esc El NSTRUCCI ONES 3 
esc 13 

esc EUna vez que veas la i magen 3 
esc L'deheras pulsar "m" + RE TURN 3 
esc Ey esta se desarmara.3 
esc EPara vol ver a armar ia deb e l 
esc Cras gui ar a la tortuga me 3 
esc Ediante las letras:3 
esc E 3 

esc C " i " - ARRIBA3 
esc E "m" - ABAJ03 
esc E " j " - I ZQUIERDA3 
esc E •* 1 '* - DERECHA3 
esc r 3 

esc Ecuando quieras cambiar una3 

esc Epieza deberas poner la tor 3 

esc Etuga encima de el 1 a y pul 3 

esc Esar "b" para borr ar . Luego3 

esc Econducirla al lugar co3 

esc Er recto y pulsar "c" para co3 

esc Erregir. SUERTE !!!!!!? 3 

esc EPARA C0NTINUAR PULSA "a" + RE 

TURN 3 

fin 

para mei 

mezcl a 528673149 
fin 

para me2 

mezcl a 834925671 
fin 

para me3 

mezcl a 748165392 
fin 

para me4 

mezcl a 357249816 
fin 


para mezcl a :1 :m :n so :p :q sr 
s : t 


activar 

1 

cp 

col 

s 1 

hacer 

"pi 

s 1 

activar 

2 

cp 

col 

: m 

hacer 

"p2 

: m 

acti var 

3 

cp 

col 

s n 

hacer 

"p3 

s n 

activar 

4 

cp 

col 

s o 

hacer 

"p4 

s o 

acti var 

5 

cp 

col 

sp 

hacer 

"p5 

sp 

activar 

6 

cp 

col 

s q 

hacer 

"p6 

s q 

acti var 

7 

cp 

col 

s r 

hacer 

"p7 

s r 

activar 

8 

cp 

col 

s s 

hacer 

"p8 

« s 

activar 

9 

cp 

col 

s t 

hacer 

"p9 

St 


■fin 

para mezcl ar 
hacer "1 azar 3 
si :1 =0 Emel3 
si : 1 =1 Eme23 
si si ~ 2 Eme33 
si : 1 =3 Erne43 
fin 

para modulo :z sa :b sc sd :e sf s 

g s h si s j s k si s m s n so s p 

frumbo 90 fcolorp sz 

•ffig s a cp estampar 

sp ad 16 f+ig sb cp estampar 

sp ad 16 ffig sc cp estampar 

sp ad 16 ffig :d cp estampar 

sp at 48 de 90 ad 10 iz 90 

cp ffig ;e estampar 

sp ad 16 ffig sf cp estampar 


sp ad 16 ffig sg cp estampar 

sp ad 16 ffig :h cp estampar 

sp at 48 de 90 ad 10 iz 90 
cp ffig ; i estampar 
sp ad 16 -f-fig ;j cp estampar 

sp ad 16 ffig sk cp estampar 

sp ad 16 f-fig :1 cp estampar 

sp at 48 de 90 ad 10 iz 90 
cp -ffig sm estampar 
sp ad 16 -f-fig :n cp estampar 

sp ad 16 ffig :o cp estampar 

sp ad 16 ffig :p cp estampar 

sp at 48 de 90 at 30 frumbo 90 

fin 


ar 91 
fin 

para sacar 

modulo 5111111111111 
1 1 1 
fin 

para sin 

son i do 1 440 15 5 
sonido 1 523 15 5 
son i do 1 440 15 5 
sonido 1 330 15 5 
fin 


5 255 255 255 255 255 255 255 255 
255 255 255 

0000 192 224 224 240 248 252 25 
2 254 254 255 255 2553 
1 hacer "fig.fl3 C255 255 255 255 25 
5 255 255 255 255 255 255 255 255 

254 184 224 

255 255 255 254 254 252 252 248 24 
0 240 224 192 128 0 0 03 

hacer "fig.fl4 C255 255 255 127 12 
7 63 63 31 15 15 7310 0 0 255 2 
55 255 255 2 

55 255 255 255 255 255 255 255 255 
127 31 73 








hacer 

“fig.flS CO 

0 

0 

0 

0 

para pantal la 

para son 




0 0 0 

0 0 255 255 

0 

0 

0 

0 

bp ffig 15 cp fcolorp 15 mt sombre 

som do 

1 

440 

15 

5 

0 0 0 

0 0 0 





ar ot 

sonido 

1 

523 

15 

5 

255 2553 





ubi car 

soni do 

1 

440 

15 

5 

hacer 

"fig.fl* CO 

0 

0 

0 

0 

activar 1 modulo 7171211 101 

soni do 

1 

659 

15 

5 

0 0 0 

0 0 0 0 3 3 

1 

2 

1 

3 

3 19 1 7 12 14 0 0 0 0 

fin 





2 1 3 

3 3 33 





0 0 


1 7 


12 3 12 1 0 


1 7 


7 

0 O 


activar 2 modulo 7 12 O 0 0 0 2 0 
3 13 1 18 1 0 1 0 1 
activar 3 modulo 7 1 
7 1 0 1 0 0 0 O 7 
activar 4 modulo 7 11 
5 4 14 13 2 7 0 0 0 0 
activar 5 modulo 711 
7 1 12 1 0 1 13 0 
activar 6 modulo 7 
0 0 0 0 5 0 0 0 

activar 8 modulo 7 0 0 0 6 0 
0 3 1 1 0 0 0 0 
activar 9 modulo 7 
5 4 0 8 0 4 2 6 
f cursor C5 213 

esc C JORGE Y FEDERICO LARUMBE3 
•fin 

para poner 
ponfig 0 sfig.fO 
ponfig 1 sfig.fl 
ponfig 2 :fig.f2 
ponfig 3 sfig.f3 
ponfig 4 :fig.f4 
ponfig 5 sfig.fS 
ponfig 6 :fig.f6 
ponfig 7 :fig„f7 
ponfig 8 :fig. f8 
ponfig 9 :fig„f9 
ponfig 10 sfig.flO 
ponfig 11 sfig.fll 
ponfig 12 :fig.fl2 
ponfig 13 :fig.fl3 
ponfig 14 :fig.fl4 
ponfig 15 sfig.flS 
ponfig 16 sfig-fl6 
ponfig 17 sfig.fl 7 
ponfig 18 sfig.flB 
ponfig 19 :fig.fl9 
fin 


para sustraer 
1 13 1 saberpos 
sacar 

analizarl quien 
hacer "qi quien 
1 13 1 activar 10 
fin 

0 0 0 0 0 0 

para sustraerl 
060 saberpos 

anal i z ar 2 quien 
68323 0 sacar 
fin 

para tic 

sonido 0 1760 15 5 
fin 

para tortuga 
activar 10 
sp fpos C22 03 
f-fig 36 
f col or 15 mt 
fin 

para ubi car 

activar 1 sp fpos C-76 633 
activar 2 sp fpos C-12 633 
activar 3 sp fpos C52 633 

activar 4 sp fpos C-76 233 
activar 5 sp fpos E-12 233 
activar 6 sp fpos C52 233 
activar 7 sp fpos C-76 -173 
activar 8 sp fpos C-12 -173 
activar 9 sp fpos C52 -173 
fin 


hacer ’ 
3 7 15 
0 128 


f ig.f 17 CO 0 0 0 0 0 0 0 1 
127 255 0 0 0 0 0 0 


3 1 63 
192 2 

24 240 248 252 254 2553 
hacer M fig.fl8 C255 127 63 
3 1 0 


31 15 
54 252 


para s 
si :pl = 

Csi :p4 

- 6 C si 

- 7 Csi 
ciar 333333333 
fin 


Csi 
4 C 
P'S 
:pQ 


par a z 
poner 
pantal 1 a 
esperar 40 

:p2 = 2 C si :p3 = 3 cambi ar . col or 7 15 esperar 80 camb 
si :p5 « 5 C si :p6 iar. color 15 1 esperar 10 
i nstrucci ones 
8 Csi :p9 = 9 Canun fin 


0 0 0 0 0 0 0 
48 240 224 1 
92 128 0 0000 0 0 03 
hacer n fig.fl9 Cl 28 192 192 192 19 
2 192 192 192 192 192 192 192 192 
192 192 192 

0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 03 
hacer "f i g . f 2 C 128 192 224 240 248 
252 254 255 255 255 255 255 255 2 
55 255 255 0 

0 0 0 0 0 O 0 128 192 224 240 248 
252 254 2553 

hacer n f i g . f 3 CO 0 0 0 0 0 0 0 1 3 
7 15 31 63 127 255 1 3 7 15 31 63 
127 255 255 

255 255 255 255 255 255 2553 
hacer "f ig. f 4“ C255' 127 63 31 15 7 
0 0 0 0 0 0 0 255 255 255 25 
255 25 

255 127 63 31 15 7 3 13 
"fig- f 5 C255 255 255 255 255 
255 255 255 255 254 252 248 240 2 
24 192 128 2 

55 254 252 248 240 224 192 128 0 0 
0 0 0 0 0 03 
hacer H fig.f6 CO 0 
6 12 24 48 96 192 
96 192 128 0 
0000 0 03 
hacer “fig.f7 C255 
0 0 0 0 0 
0 0 0 0 0 
0 0 03 

hacer “fig.fB C 128 192 96 48 24 12 
0 0 0 0 0 0 0 0 0 0 0 0 
9 


3 1 0 
5 255 
5 255 
hacer 


0 0 
1 3 


0 0 0 1 2 
12 24 48 


55 255 0 0 0 
000 255 255 0 0 
0 


0 0 
0 0 


6 3 10 0 
0 128 192 
6 48 24 12 6 33 
hacer n fig.f9 CO 
127 


0 0 0 0 1 7 15 31 


para saberpos 

si y coorx < -12 coory 

ar 1 3 

si y coorx > -12 coorx 
ory > 23 Cacti var 233 
si y coorx > 56 coory > 
r 33 


hacer “cl 7 
hacer "c2 1 

hacer “fig.fO CO 0 0 0 0 0 0 0 0 0 
> 23 Cacti v 00000000000000000 
0 0 0 0 03 

< 63 Csi co hacer “fig.fl C255 255 255 255 255 
255 255 255 255 255 255 255 255 2 
23 Cacti va 55 255 255 2 

55 255 255 255 255 255 255 255 255 
si y coory < 23 coory > -17 Csi co 255 255 255 255 255 255 2553 
orx < -12 Cacti var 43 3 hacer “fig.flO C255 255 255 127. 12 

si y coorx > -12 coorx < 56 Csi y 7 63 63 31 15 7 1 0 0 0 0 0 255 25 

coory < 23 coory > -17 Cactivar 53 5 255 254 25 

3 4 252 252 248 240 224 128 0 0 0 0 

si y coorx > 56 coory < 23 Csi coo 03 

ry > -17 Cactivar 633 hacer “fig.fll CO 0 0 0 3 7 15 15 

si y coorx < -12 CDory < -17 Cacti 31 63 63 127 127 255 255 255 7 31 

127 255 255 

56 Csi co 255 255 255 255 255 255 255 255 25 


63 6: 
0 
40 
3 

hacer 

hacer 

hacer 

hacer 

hacer 

hacer 

hacer 

hacer 

hacer 

hacer 

hacer 

hacer 


127 255 255 255 0 0 0 0 
128 224 2 

216 140 220 254 254 2 


255 255 


“1 0 

..p „ c 

“pi 1 
“p2 2 

“p3 3 
“p4 4 
“p5 5 

“p6 6 

“p7 7 
”p8 3 
“p9 9 
“ql 


1 


var 73 

si y coorx > -12 coorx < 
ory < -17 Cactivar 833 
si y coorx > 56 coory < 


2553 

17 Cacti v hacer “fig. f 12 C224 248 254 255 25 




EDITOR DE LINEA 


Tipo: Utilitario 



uchas veces cuando ingresa- 
mos un dato imposible en uno de 
nuestros programas necesitamos 
que el mismo no sea tornado en 
cuenta y se nos pida uno correcto. 

En otras ocasiones, hemos dese- 
ado modificar alguno de los datos 
que ingresamos en la misma ficha, 
pero mas arriba. O insertar texto, o 
m uchas otras cosas. 

Todos estos problemas admiten una 
solution general. Se trata de "fabri- 
camos" nuestro propio editor para 
poder incorporarlo en cualquiera de 
nuestros programas. 

Hemos tornado como ejemplo una 
tfpica agenda (apellido, nombre, do- 
micilio, codigo postal y telefono). 

A cada item se le da las coordena- 
das horizontales y verticales con las 
variables H y V. Tambien se marca 
el rango de los valores admitidos 
(BI y BS) y la longitud maxima que 
puede ingresarse (L). 

La rutina de edicion comienza en la 
lrnea 1200. La misma controla que 
tecla ha sido presionada, si esta den- 
tro de los valores admitidos y si hay 
que insertar espacios o borrarlos. 
Aconsejamos probar esta rutina e ir 
haciendole modificaciones segun el 
gusto de cada uno. Por ejemplo, una 


mejora importante que se le puede 
realizar es permitirle aceptar acen- 
tos y efles. Con un poco de practica 
se pueden encontrar soluciones sor- 
prendentes. 

Estructura 
del programs 

1000-1020 Definition de pantalla 
1030-1080 Impresidn de formato de 
ficha 

1090-1160 Ingreso de texto - llama- 
da a subrutina de edicidn 
1170-1180 Subrutina que devuelve 
el valor ASCII de la tecla presiona- 


da 

1190-1390 Subrutina de edicion de 
lrnea 

Variables 

importantes 

H=Tabulaci6n horizontal 
V=Tabulacion vertical 
BI= Valor inicial del rango 
BF= Valor final del rango 
P$=Texto que se va a ingresar 
A$=Tecla presionada 
B=Valor ASCII de tecla presionada 


1000 

CLEAR 1024 : DEFINT A-Z 


1040 LOCATEO , 2 : PRINT 

1010 

KEYOFF : SCREEN0 : WIDTH3 


" Apellido: 

9 


" , X*2) 

«« 

1020 

DEFFNA$ (X) =LEFT$ (" 

1030 CLS : PRINT FNA$ (39) ; 

1050 LOCATEO , 4 : PRINT "Nom- 





iCURSODE ROBOTICAY 
AUTOMATIZACION 
EN LA ARGENTINA? 


En el Centro de Asistencia Talent de Flores se desarrolla una de las 
actividades relacionadas con la informatica que mas esta 
creciendo: la robotica. Este Centro realizo cursos personates y por 
correspondencia, los extendid a todo el pais y al exterior. 


s una pregunta que los cientos 
de alumnos del Liceo Cultural de 
Informatica -LICIN, Centro de Asis- 
tencia Talent de Flores- (no solamen- 
te argentinos, sino mexicanos y uru- 
guayos) que han realizado el curso ya 
no se hacen. 

Desde hace tres anos, LICIN -fiel a su 
meta de “cursos de avanzada para la 
materia del futuro”-, agrego a los nu- 



CENTROS DE ASISTENCIA AL USUARIO DE TALENT MSX 


CAPITAL FEDERAL 


Taller Logo de computacion 
Junin 1930 


Flores 

Gral. Artigas 354 - Tel. 612-3902 


Lands 

Caaguazu 2186 - Tel. 240-0378 


Palermo 

Guatemala 4733 - Tel. 71-4124 

Centro de Computacion Cllnica 

Asistencia al Usuario Discapacitado San Telmo 

Ramsay 2250 - Pabellon F Chile 1 345 - Tel. 37-005 1 al 54 

Tel. 784-2018 

GRAN BUENOS AIRES 

Barrio Norte 

Uriburu 1063 - Tel. 83-6892/826- Caseros 

6692 Medina y Alberdi - ler piso - Tel. 750- 

8016. 

Belgrano 

Cabildo 735 - Tel. 772-9088 Castelar 

C. Casares 997 - Tel. 629-2247 


Mor6n 

Belgrano 160 - Tel. 629-3347 


Ramos Mejia 

Bolivar 55 - ler. piso - Tel. 6584777 


San Justo 

Peru 2515 (esq. Arieta) 


Vicente L6pez 

Av. Maipu 625 - Tel. 797-672 


Virreyes - Pdo. de San Fernando 

Avellaneda 1697 - Tel. 745-7963 








bre : 

:BS=ASC(”9") : L=3 : P$=TE$ : GOS 

+1 : GOTO1220ELSE1 340 

»i 

UB 1200 : TE$=P$ : IF P=-1THE 

1280 IFB=30THENP=-l:GOTO137 

1060 LOCATEO, 6: PRINT "Domi- 

N 1130 

0 

cilio : 

1150 H=1 4 : V=1 0 : BI=ASC ( " 0 " ) 

1290 IFB=13THEN1370 

tv 

:BS=ASC ("9") :L=4 :P$=TL$ :GOS 

1300 IFB=18THENP$=LEFT$ (P$, 

1070 LOCATEO, 8 : PRINT "C.Pos 

UB 1200 : TL$=P$ : IF P=-1THE 

J-l) +" "+MID$ (P$, J, L- J) :GOT 

tal : 

N 1140 i 

01220 

1080 LOCATEO, 10 : PRINT "Tele 

1160 LOCATE 0, 20 :PRINT 

1310 IFB=11THENP$=SPACE$ (L) 

fono: - " 

"Gracias ! " :END 

: J=1 :GOTO1220 

1090 CP$="0000" 

1170 * — Ingresai c6digo AS 

1320 IFB=8THENJ=J+ ( J>1) :B=1 

1100 H=10 : V=2 : BI=ASC ( " 

CII 

27 

") :BS=12 6 : L=28 :P$=AP$ :GOSUB 

1180 A$=INPUT$ (1) :B=ASC (A$ 

& 

1330 IFB=1 2 7 THENP $=LEFT $ (P$ 

1200:AP$=P$:IF P=-l THEN 

) : RETURN 

, J-1)+MID$(P$, J+l)+" " : GOTO 

1030 

1190 ' — Editor de linea 

1220 

1110 H=10:V=4 :BI=ASC (" 

1200 J=1 :P=0 : IFLEFT$ (P$, 1 ) = 

1340 GOTO1220 

") :BS=126:L=28:P$=NO$:GOSUB 

" "THENP$=MID$ (P$,2) :GOT012 

1350 IFB<BI OR B>BSTHEN1340 

1200 :NO$=P$ : IF P=-l THEN 

00 

ELSEMID$ (P$, J, 1 ) =A$ : IF J<LTH 

1100 

1210 P$=LEFT$ (P$+SPACE$ (L) , 

ENJ=J+1 

1120 H=10 : V=6 : BI=ASC ("" ) : 

L) 

1360 GOTO1220 

BS=12 6 : L=2 8 : P$=DO$ : GOSUB 

1220 LOCATEH, V:^RINTP$; :LOC 

1370 IFRIGHT$ (P$, 1) =" "THEN 

1200 : DO$=P$ : IF P=-l THEN 

ATEH+J-1 , V 

P$=LEFT$ (P$, LEN (P$) -1 ) :GOTO 

1110 

1230 GOSUB1180 

1370 

1130 H=1 0 : V=8 : BI=ASC ( "0" ) : 

124 0 I FB>3 1 ANDB< 127 THEN 1 350 

1380 IFLEFT$ (P$, 1) =" "THENP 

BS=ASC (" 9" ) : L=4 :P$=CP$ : GOSU 

1250 IFB=2 7THENRETURN 

$=MID$ (P$, 2) :GOTO1380 

B 1200:CP$=P$: IF P=-1THEN 

1260 IFB=2 9THENIF J>1THENJ= J 

1390 LOCATEH , V : PRINTP $ ; SP AC 

1120 

1140 H=10 : V=10 :BI=ASC (" 0" ) 

-1 : GOTO1220ELSE1340 

1270 IFB=2 8THENIF J<LTHEN J= J 

E$ (L-LEN (P$) ) : RETURN 



SERVICE OFICIAL PARA TODO EL PAIS REPUESTOS 


ORIGINALES PARA TODA LA LINEA CZY ZX 
ASESORAMIENTO INTEGRAL (IBM - APPLE) EN SOFTWARE 
HARDWARE Y TELE INFORMAT I CA 
PRESUPUESTOS EN 48 hs . ENVIOS AL INTERIOR 


ITUZAINGO 884 CAP. (1272) TE . 362-5876/361-4748 DELPHI : ANGEL 



merosos cursos de Informatica que o- 
frece desde su fundacion en mayo de 
1983, los cursos de Robotica General, 
Robotica Aplicada y Robdtica Indus- 
trial y Automatizacion. No solo los 
dicta en forma personal, sino que lo 
hace por correspondencia a todo el 
pais y, desde hace un ano, a Mexico y 
Uruguay. Laidea de este Instituto es 
seguir conquistando palses latinoa- 
mericanos. 

Como puede apreciar el lector, no es 
noticia sdlo que el curso existe, sino 
que Argentina es pionera en el dicta- 
do de esta materia en casi toda Latino- 
america. 

^Qu6 niveles se ofrecen actualmente? 

PRIMARIO - ROBOTICA 
GENERAL 
(Curso Personal) 

Segun la edad, los mas pequenos do- 
minan con programacion LOGO los 
diferentes robots del Instituto e inclu- 
so con el uso de interfases roboticas 
controlan luces, sensores y motores. 
Los niflos de los ultimos afios de pri- 
maria -previa ensefianza deelectroni- 
ca b£sica y practica- arman su propio 
robot tortuga, con interfase robdtica 
de 8 salidas/entradas y fuente de ener- 


gla con salida de 9v y 5v. Luego, me- 
dianteel lenguaje BASIC, dominan el 
robot y efectuan programas propios 
para que 6ste realice las evoluciones 
que cada alumno proyecta. Ademas, 
se los introduce en la automatizacion 
para que logren captar los alcances 
verdaderos del curso. As! compren- 
den que no han dominado unicamen- 
te un juguete, sino que con la interfa- 
se robotica pueden manejar luces, a- 
larmas, aparatos con control remoto, 
etcetera. 

SECUNDARIO - 

ROBOTICA APLICADA Y 
AUTOMATIZACION 

Despues de un curso completo de e- 
lectronica, se amplla el conocimiento 
del funcionamiento de la computado- 
ra, ports de salida, entradas y conexio- 
nes para perifericos. Recidn con esos 
conocimientos encaran el desarrollo 
y armado de la interfase robotica, del 
robot y de su fuente de energia. Por 
supuesto, tambien el dominio del ro- 
bot por programacion, dominio de lu- 
ces, rayo laser, alarmas, ejercicios de 
automatizacion de casas, garages au- 
tomation, etcetera. 


NIVEL TERCIARIO - 
ROBOTICA INDUSTRIAL 
Y AUTOMATIZACION 

Esta dedicado a profesionales en E- 
lectronica e Informatica con nivel ter- 
ciario y alumnos universitarios. Lue- 
go de un curso de nivelacion donde 
veran Tdcnicas Digitales y Micros, se 
entrara directamente en Robotica In- 
dustrial y Automatizacion. Diagra- 
maran distintos circuitos de interfases 
analogico-digitales y ejecutaran el ar- 
mado de una de ellas, como practica 
de programacion para dominarlas 
perfectamente y efectuar ejercicios 
de automatizacion y robotizacion, do- 
minio de sensores e informacion so- 
bre los distintos tipos utilizados, do- 
minio de motores, alarmas, etcetera. 
Lo que deseamos resaltar es que en es- 
tos cursos el alumno no sdlo recibe in- 
formacion sino que, al mismo tiempo, 
aplica los conocimientos en realiza- 
ciones practicas. 

Tambien es importante hacer notar 
que los ejercicios planteados son es- 
tudiados de tal manera que los com- 
ponentes se consiguen facilmente en 
nuestro pais. 


INTERIOR DEL PAIS 

Bahia Blanca • Buenos Aires 

Gral. Paz 257 - Tel. (091) 31582 

Junfn - Buenos Aires 

Gandini 75 - Tel. (0362) 27956 

La Plata • Buenos Aires 

Calle 48 No. 529 - Tel. (021) 249905 al 
07 

Mar del Plata • Buenos Aires 

Av. Luro 3071 - 13o. “A” -Tel. (023) 
43430 

Necochea - Buenos Aires 

Calle 61 No. 2949 - Tel. (0262) 26583 


Comodoro Rivadavia - Chubut 

San Martin 263 - Local 22 - Tel. 
(0967) 20794 

Cdrdoba • Cdrdoba 

9 de julio 533 - Tel. (051) 20083 

Villa Marla - Cdrdoba 

Corrientes 1159 - 2do. piso - Tel. 
(0535)24311 

Concordia - Entre Rios 

Urdinarrain 50 - Tel. (045) 213229 

Parand - Entre Rios 

Cdrdoba 67- Tel. (043) 225987 

Mendoza -Mendoza 

Rivadavia 76 - ler. piso - Tel. (061) 


291348/293151 

Viedma - Rio Negro 

San Martin 24 - Tel. (0920) 21888 

Rosario - Santa Fe 

Baron de Maua 1088 - Tel. (041) 
210747 

Santa Fe - Santa Fe 

Rivadavia 2553 - Loc.22 - Tel. (042) 
41832 

San Juan- San Juan 

Santa Fe 409 Este 

S.M.de Tucumdn - Tucumdn 

Bolivar 374 - Tel. (081) 245007 




m 







■r 

onvoca a jovenes estudiantes 

o recien egresados de carreras de 
computacion o electronica, de 
Capital Federal y del interior del pals, 
quienes seran seleccionados por la 
empresa Telematica S.A., productora 
de las computadoras Talent MSX, 
para realizar trabajos en el area de 
promotion. 



Los interesados deben escribir a : 
"K64. Computacion para todos" 
Becas de Trabajo 
Mexico 625, 3 9 piso 
(1097) Buenos Aires 

□□□□□□□□□□ 








CONCURSO nENSURL 





a 

eleccion entre 
IDEA BASE , IDEA TEXT ; o 
BAS/C 7(770/?. 






Auspiciado por TELEMATICA S.A. fabricante en Argentina de las computadoras 

personales TALENT MSX 

Para participar en este certamen deben senalar cual es la information correcta que presenta cada 
item. Junto con las respuestas deben remitir los datos en el correspondiente cupon. Los premios 
se entregaran en la administration de la editorial. Los que no puedan concunir pueden solicitar 
el envio pagando el franqueo contrareembolso. Los premios podran ser reclamados dentro de los 

120 dias despues de haber sido anunciados. 


Ganador del MSX-TEST N. 13 


Mauricio Carlos Sabatini, Lavallol, Buenos Aires 


Respuestas correctas 


1) a. en cartucho. 2) a. si. 3) b. copiarpantalla. 4) b. espanol. 

5) a. POKE &HFBB1.1 


MSX-TEST N. 17 - CIERRE 1 DE JULIO DE 1989 


1. ^Como se llama el programa 
que viene con el digitalizador T A- 
LENT TVD-256? 

a. IMAGEN 

b. T1TULA 

c. VIDEO 

2. ^Durante cuanto tiempo pode- 
mos dar movimiento a dos figu- 
ras en el modo animacion del Phi- 


lips Video Graphics? 

a. 15 segundos 

b. 30 segundos 

c. 1 minuto 

3. iQue VDP utiliza la MSX2? 

a. V8838 

b. V8938 

c. V9938 


4. iQue tipo de numeros son los 
que van precedidos por &H? 

a. hexadecimales 

b. howelianos 

c. high 

5. PAYLOAD es un juego de origen. 

a. .. espanol 

b. .. japon^s 

c. .. ingles 


Nombre y apellido. 
Direccion: 


Documentor 


Edad: 


_Maquina:_ 


Que es lo que mas me gusta de la rcvista:_ 
Que le agregarfa: 


Que es lo que no me gusta:_ 






BOLETA LOCA 


Tipo: Utilitario 


Qui6n no sono alguna vez con 
I sacarse el PRODE? Muchos 
■ son los mdtodos empleados 
/ por los apostadores para con- 
M feccionar las boletas. 

** Esta el que juega la logica, el 
que busca los resultados histdricos, 
el que juega siempre la misma bole- 
ta y el que usa algun elemento de a- 
zar para tratar de cambiar su suerte 
(y fortuna). 

Entre estos ultimos podemos encon- 
trar los que usan los dados, la peri- 
nola, una simple moneda y ahora 
tambien la computadora. 

Ningun metodo tiene la eficacia ase- 
gurada. Los ganadores declaran que 
usan uno u otro pero no coinciden 
en la "formula mdgica". 

El presente programa prepara una 
boleta de PRODE con sus corres- 
pondientes dobles y la muestra en 
pantalla. La pregun ta es: £se puede 
ganar con esta tarjeta? La respuesta 
que damos es iy por qu6 no? 

Claro que a la suerte hay que ayu- 


sotros. 

Estructura del 
programa 


10 Define pantalla - Presen- 
tacidn 

20 Dimensiona los vectores 
30-50 Prepara la boleta 
60-70 Marca los dobles 
80-95 Encabezado de tarjeta 
100-130 Imprime tarjeta 
140 Pie de tarjeta 


Variables 

importantes 


JU % (13)=J ugada simple 
DO%(2)=Jugada doble 
Dl%, D2%=Auxiliar de 
doble 

darla y si queremos ganar tendremos UB %=Auxiliar de tabulacidn 
que jugar la tarjeta. Eso si. Espera- J, I%=Auxiliares de lazo 
mos que si ganan se acuerden de no- 


TARJETA N s . 


MINISTERS DE SALUD Y ACCION SOCIAL 

LOTERIA NACIONAL 

8 y 9/4/89 PR55?DE 
CONCURSO EXTRAORDINARIO N 2 806 

Apellido y Nombre 


o Documento de Identidad. 


VALOR UNICO DE LA TARJETA 
con derecho a formular dos (2) 
dobles, como m£ximo 


A 50.- 






DOBLE 




1 

,v 


2 



3 

X; 


4 



5 



6 


X 

7 

X 


8 

X 

s 

9 

X 


10 



11 



12 

>< 

2. 

,13 






X 




RIVER PUTE 1 
V. SARSRELD 2 
DEP. ESPANOL 3 
ARGENT1W0S JR$. 4 
D. MANDIYU (Ctes.) 5 
TALLERES (Cba.) 6 
ROSARIO CTRAL. 7 
'ESTUOIAMTES L. P. 8 
INDEPENOIENTE 9 
PLATENSE 10 
0EP. ITAUAN0 11 

union 12 

LANUS 13 




Xp. 


X 


S 




S' 


SAN MARTIN (Tuc.) 

ARMENIO 
RACING CLUB 
G. Y ESGRIMA L P. 
N. 0. BOYS 
INSTTTUTO (Cba.) 
F.C. 0ESTE 
RACING (Cbt.) 

S. L 0E ALMAGRO 
BOCA JUNIORS 
TALLERES 
COLON 
BANFIELD 


10 SCREEN1 : WIDTH32 : KEYOFF : D 
EFINTA-Z:CLS: PRINT ” GENERAD 
OR DE BOLETAS LOCAS DEL P 
RODE 

20 DIM JU% (13) : DIM DO% (2) :A 
=RND (-TIME) 

30 FOR J-l TO INT (RND (-TIME 
)*10):FOR I%=1 TO 13:JU%(I% 
) =INT (RND (TIME) *3) +1 :DO% (1) 
=INT (RND (TIME) *13) +1 
40 DO% (2) =INT (RND (TIME) *13) 
+1 : IF DO% (2)«DO% (1) THEN 40 
50 NEXT -.LOCATE 0 , 10 : PRINT "V 
UELTA : " ; J : NEXT 
60 D1%=INT (RND (TIME) *3) +1 : I 


F D1%=JU% (DO% (1) ) THEN 60 
70 D2%-INT(RND(TIME)*3)+1:I 
F D2%=JU% (DO% (2) ) THEN 70 
80 CLS: PRINT TAB (5); "LA GAN 
ADORA" : PRINT : PRINT 
90 PRINT TAB (5) ; "L"; TAB (10) 
; "E"; TAB (15) ; "V" : PRINT :UB%= 
5 

95 LOCATE 3, 4: PRINT " XW 

Y XWY XWY M 

100 FOR I%=1 TO 13 

110 LOCATE 0,UB%: PRINT USIN 

G "##";I%: LOCATE 3,UB%:PRIN 

T "WS TWWS TWWS 

TWWO 


115 LOCATE 

5* JU% (1%) , UB% : PR 

INT "D" : IF DO%(l)*I% THEN 

LOCATE 5*D1 % , UB% : PRINT "C" 

: LOCATE 20 f UB% : PRINT "D" 

120 IF DO% (2) =1% THEN 
LOCAT 

E 5*D2%,UB%:PRINT"C" : LOCAT 
E 20, UB% : PRINT "D" 

130 UB%=UB%+1 : NEXT 

135 LOCATE 3,UB%:PRINT " Z 

W[ ZW[ ZW[ N 
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SONIDOS EN LENGUAJE C 

Tipo: Utilitario 


Mostramos una aplicacidn en lenguaje C donde podemos 
observar sus diferencias y similitudes con el Basic. El "C" es uno de los lenguajes 

mas usados actualmente. 


E 


fi 


1 


n Basic la ins- 
truccion OUT 
sirve para enviar da- 
tos de un byte a los 
perifericos intemos o 
externos de la ma- 
quina a trav6s de la 
puerta de entrada/sa- 
lida. 

Cuando hablamos de 
perifericos internos 
nos referimos al PSG 
(generador de soni- 
do), al PPI (interfase 
programable para pe- 
rifericos) y al VDP (procesador de 
pantalla). 

El formato de la instruction es el si- 
guiente: 

OUT direccion de puerta, expre- 
si6n entera donde la direccion de 
puerta es una expresidn entera que 
puede variar entre 0 y 255 y la ex- 
presion entera es el dato que va a 
transmitirse. 

En el manual de uso de las Talent 
MSX (pag. 150), encontramos un 
programita que ejemplifica 
el uso del OUT . (Ver lista- 
do 1) 

El lenguaje C es uno de los 
mds empleados actualmente 
por los programadores ya 
que ofrece multiples venta- 
jas (velocidad, portabilidad, 
estructura, etcetera). 

En el listado 2 vemos el pro- 
grama C que realiza la mis- 
ma tarea que el programa 
BASIC del listado 1 (Simula 
el sonido del despegue de 
un avion). 

Hay que hacer notar la es- 



tructura del programa en el que pri- 
mero se definen las variables, para 
luego hacer "todo el ruido junto". 
Tambien es de destacar la instruc- 
cion while. Veamos por ejemplo: 
while(cont++ cLIMITE). 
cont es una variable que se va incre- 
mentando automaticamente, y 
mientras sea menor al valor que le 
hemos impuesto a LIMITE (31) va 
a ejecutar lo que esta debajo de ella 
entre Haves. 

Creemos que 6sta es una buena o- 


Listado 1 


10 

OUT &H A0, 7: OUT 

&HA1 , 7 

20 

OUT &HA0 , 8 : OUT 

&HA1 , 8 

30 

FOR 1=0 TO 31 


40 

OUT &HA0, 6 :OUT 

&HA1 , I 

50 

FOR J=1 TO 50: 

NEXT J 

60 

NEXT I 


70 

PRINT "pulse las teclas 

<CTRL>+<STOP>" 


80 

END 



portunidad para comparar 
los dos programas, 
adquirir las herramientas 
de c adecuadas (editor y 
compilador) y lanzarse a 
la aventura de la progra- 
macidn en este avanzado 
lenguaje. 


Listado 2 

#include <stdio.h> 
main () 

{ 

# define PSG1 160 

# define PSG2 161 

# define LIMITE 31 

# define DELAY 10000 

int cont , retardo; 
char beep; 


beep= ' \007 ’ ; 
outp (PSG1 , 1 ) ; 
outp (PSG2 , 7 ) ; 
outp (PSG1 , 8 ) ; 
outp (PSG2 , 8) ; 
cont=0; 

while (cont++ < LIM- 
ITE) 

{ 

outp (PSG1 , 6) ; 
outp (PSG2, cont) ; 
retardo = 0; 
while (retardo++ < 
DELAY) 

/ 

i 

printf ( "\nFin despegue 
%c", 
beep) ; 

1 
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AGENDA MSX 

Autor: Jose Domingo Griff o 
Tipo: Utilitario 

Participo en el 4 - Concurso de Programas 



Q 

V«/ i bien es un programa ya muy 
conocido, tiene algunas caracteristi- 
cas que lo diferencian de los publica- 
dos hasta el momento en las revistas 
del mercado, incluso en las LOAD N e 
l,2y 9. 

Una de las peculiaridades caracterfs- 
ticas es: la utilization de archivos 
aleatorios, lo que me permite usar ru- 
tinas de ordenamiento y busqueda de 
datos, realmente muy rapidas. 

Otra caracteristica, muy importante 
para los que tenemos que trabajar 
comercialmente, es que el N e de clien- 
te lo da la computadora y “queda de 
por vida”, por lo que no permite el 
ingreso de un nombre o razon social 
que ya exista, ni en altas, ni en modi- 
ficaciones. 

En este programa hay muchas rutinas, 
y metodos de trabajo que son una 
buena base para crear otros progra- 
mas del mismo tipo, como por ejcm- 
plo para una biblioteca, (donde cada 
libro necesita su codigo), video clu- 
bes, consultorios, suscriptores de la 
revista, etcetera. 

Hay algunas cositas que aun no se han 
publicado en “Sortilegios” como: 
OUT & HAB, 12 que enciende la luz 
de caps y se complementa con POKE 
& HFCAB, 255 para que escriba en 
mayusculas. 

En la revista N Q 1, section Sortilegios, 
en el tema de las interrupciones hay 
un error. Con VDP(1)=208 se desac- 
tivan las lecturas de teclado, pero con 
VDP (1)=204 no seactivan. Luego de 
algunas pruebas y, como siempre por 
error surgio que debe ser de VDP 
(1)=240. 


Rutinas 


Antes de entrar al programa en si, se 
debeaclararel funcionamientode dos 
rutinas que son utilizadas a cada 
momento. 

Una de ellas es la que se encuentra 
entre las lineas 800 y 860, que se 
encarga de escribir un texto en panta- 
11a a traves de MIDS; esos textos se 
encuentran entre las lineas 900 y 999. 
La final idad de esto es tencr una varia- 
cion de imagen, con una ayuda audi- 
tiva, para que no pase dcsapercibida 
la pregunta o el mensaje que en ese 
momento nos hace la computadora. 
Esta rutina se la puede acclerar o no, 
cambiando el valor del STEP en la 
linea numero 820. 

Laotrarutinaes la de INPUT: ubicada 
entre los numeros de linea 50000 y 
50151. 

Se encarga de recibir la cantidad de 
caracteres que nosotros deseamos, en 


el lugar que le indiquemos. Trabaja 
con insercion, BS, DEL, y cursor de- 
recha o izquierda, haciendo caso 
omiso a cursor arriba, abajo y SE- 
LECT. 

La forma de.uso es la siguiente: luego 
de poncr en X la cantidad de caracte- 
res que deseamos recibir, y ubicar 
mcdiante LOCATE el cursor en la po- 
sition deseada, hacemos GOSUB 
50000. Despues de ingresado el texto 
o no, con presionar Return nos de- 
vuclve en BS lo ingresado. 

Explication de las 
subrutinas altas 

Comienza pidicndo el nombre del 
cliente que se va a ingresar y luego 
solicita la espera de un momento 
mientras busca si existe. En caso de 
existirnorecibeel alta,ymuestrabajo 
que numero de codigo ya fue ingresa- 
do ese clicnte. 


Pag. 22 



En el caso de que no exista, sigue 
tomando los dcmas datos, hasta pre- 
guntar por su conformidad. En el caso 
dc cstar conformcs, graba los datos en 
AGENDA. ARC, y ordena alfabctica- 
mente en ORDEN.ARC, para regrc- 
sar a altas. 

Cuando no se esta conformc con los 
datos que se ingrcsaron, no picrdc 
ninguna entrada. Ubica cl cursor a 
partir dc la razon social y, aprctando 
Enter, lo considcra corrccto y pasa al 
siguicnte. Pulsando cspacio, limpia 
esc sector dc la pantalla y pidc la 
nueva razon social, busca si cxiste y 
coniinua con los pasos antes dcscrip- 
tos. 

El manejo dc los archivos cs cl si- 
guiente: 

En cl archivo AGENDA.ARC sc 
guardan lodos los datos del cliente 
segun su orden dc ingreso, que sera 
tambicn cl numcro orden del clicntc. 
En el archivo ORDEN.ARC sc alma- 
ccnan los codigos de los clicntes (o 
sea sus rcspcctivos numcros de or- 
den), y ordenamos alfabcticamentc 
por razon social. 

Por cjcmplo: ingresamos scis nom- 
bres en cl siguicnte orden: 


N 9 registro en 

AGENDA.ARC 

1 

Jose Griffo 

2 

Ana Scnin 

3 

Carlos Fomaro 

4 

Adriana Perez 

5 

Pedro Caruzo 

6 

Alberto Badfa 


Tal cual como fucron ingresados 
quedaron en AGENDA.ARC. 

Pero si consultamos cl ORDEN.ARC 
tendremos: 


N 9 registro en 

ORDEN.ARC 

1 

4 

2 

6 

3 

2 

4 

3 

5 

1 

6 

5 


Lo que significa que si tomamos los 
numeros almacenados en 
ORDEN.ARC y consultamos 
AGENDA.ARC nos quedaria lo 
siguicnte: 


noveno lugar. Pasarfa lo siguicnte: 


Valores 

N e pasadas Inicio Final Promedio 


Cod. cliente 

Razon social 

4 

Adriana Perez 

6 

Alberto Badfa 

2 

Ana Scnin 

3 

Carlos Fomaro 

1 

Jose Griffo 

5 

Pedro Caruzo 


Explicacion de 


la rutina 


1 

2 

3 

4 

5 


1 

2 

3 

4 
9 


100 

49 

24 

12 

11 


50 

25 

13 

8 

Encon- 
trado en I. 


de busqueda 

Esta rutina dcvuclvc en V un uno si lo 
encucntra, dc lo contrario un ccro. 

El metodo cs el siguicnte: 

Una vcz controlado si hay datos en el 
archivo, compara cl nombre buscado 
con el ultimo del archivo (ordenado 
alfabcticamentc). Si es igual retorna 
con V en uno. Si no, compara cl nom- 
bre buscado con cl primero del archi- 
vo; si cs igual retorna con V en uno. Si 
no, toma cl cliente ubicado en el cen- 
tra del archivo, calculando cl prome- 
dio (P) entre I (inicio) y F (final). 
Compara cl nombre buscado con cste, 
y si cs igual retorna con V en uno. 

Si cs mcnor, cl final pasa a tomar cl 
valor del promedio menos uno ya que 
cste fuc comparado, y al inicio se le 
suma uno por cl mismo motivo. 

Si es mayor, el inicio pasa a tomar el 
valor del promedio mas uno, y el final 
sc achica en uno. 

Sc controla si la difcrcncia entre el 
inicio y el final es menor a uno, lo que 
quicrc decir que el nombre buscado 
no cxiste. 

Dc lo contrario comienza nuevamcn- 
tc cl metodo, con los nuevos valores 
en inicio y final, hasta encontrar el 
nombre buscado o no. 

S upongamos que tenemos una lista de 
cicn noinbres, y buscamos el nombre 
Griffo Jose que sc encucntra en cl 


O sea que en cinco pasadas se encon- 
tro cl nombre buscado. 

Supongamos que buscamos el mismo 
nombre en la misma ubicacion pero 
entre trcscientos. Succdcria lo si- 
guiente: 


N 2 

pasada 

Inicio 

Final 

Promedio 

1 

1 

300 

150 

2 

2 

149 

75 

3 

3 

74 

38 

4 

4 

37 

20 

5 

5 

19 

20 

6 

6 

11 

8 

7 

9 

10 

Encon- 
trado 
nueva- 
mente en 
I. 


O sea que sobre 100 clientes realizo 
cinco pasadas, y sobre trcscientos, 
sicte. Esta relation no es siempre asf„ 
puede haber diferencias en mas o en 
menos, pero demuestra la rapidez con 
que trabaja. 

Explicacion de la rutina 
de modificacion 

Esta permite modificar cualquiera de 
los datos ingresados de cualquicr 
cliente. En el caso de que se modifi- 
que la razon social, no permite que se 
ingrese alguna que ya exista, y la 
nueva razon social queda con el 
numero de codigo del viejo cliente. 
Esta es una manera de dar de baja a un 
cliente, ya que de otra forma quedaria 


ese cddigo con un hucco, y sc compli- 
carfa el modo de mantencr ordcnada 
alfabeticamente la tabla. 

La manera de trabajar cs la siguicnic: 
abre los archivos y vcrifica si hay 
clicntes ingrcsados. Si no hay, avisa y 
vuclve al menu. Si hay, pidc cl cddigo 
de cliente que se quicre modificar; 
luego de vcrificar si cxistc, lo mucsira 
en pantalla, y pregunta si sc modifica 
o no. En caso de que no se modifique, 
pide un nuevo codigo de clicnte. Si 
no, pregunta por la conformidad de la 
razdn social. Si no se modifica, cl tra- 
bajo es sencillo: se sigucn tomando 
los demas datos y en caso de cstar 
conforme se graban en cl 
AGENDA. ARC, ya que al no modifi- 
car la raz6n social, no se altera cl 
ordcn alfabctico. 

Si se modified la razdn social, vcrifica 
que no exista otro clicnte con cl mis- 
mo nombre para podcr seguir pidicn- 
do los demas datos, y en cstc caso si 
hay que pasar por la rutina de ordena- 
cion. 

Rutina para listados complctos. 

Es muy sencilla. Luego de vcrificar si 
hubo ingresos, saca por ordcn alfabc- 
tico y cn forma sccucncial todos los 
datos de los archivos, mucsira cn 
pantalla la razdn social y los telcfo- 
nos, controlando cuando se llena la 
pantalla para pedir RETURN y conti- 
nuar. 

En cl listado complcto por impresora, 
el metodo cs exactamcnlc igual, pero 
sc imprimen todos los datos accrca de 
cada clientc. 



Estructura del programs 


10-45 Prcscntacidn. 

46 Rcscrva espacio para variables, 
carga Rccuadro. Bin y define su di- 
rcccidn. 

55 Dcclara lodas las variables cntcras. 
60 Encicndc la luz de CAPS y rccibe 
mayusculas. 

65 "Pokca" para anti stop. 

70 Fija numcro maximo de fichcros. 
80 Dcsvfa a Menu general. 

90 Scgun la opcion, dcsvfa a distintos 
bloques. 

100 Para alias. 

200-230 Para modificar. 

300-305 Para listados. 

400-410 Para consultar ficha. 
500-520 Para impresidn de ctiquclas. 
600 Fin: encicndc nuevamente la 
computadora. 

800-860 Escribe variable X$ letra por 
lctra. 

900-998 Define variable X$ con dis- 
tintos mensajes. 

1000-1100 Menu general. 

3000-3080 Menu para listados. 
10000-10950 Rccibe alias. 
20000-20730 Rccibe modificacio- 
nes. 

31000-31030 Consulta por listado 
complcto si sc desca por impresora o 
no. 

31040-31230 Listado complcto por 
pantalla. 

31500-31610 Listado complcto por 
impresora. 

32000-32530 Listado parcial. 
33000-33420 Consulta por localidad 
dcscada y si saca por impresora. 
33500-33550 Lisia cn pantalla locali- 
dad dcseada. 

34000-34420 Consulta por provincia 
dcseada y si saca por impresora. 
34500-34540 Lisia cn pantalla pro- 
vincia dcseada. 

34700-34830 Lista por impresora 
provincia dcscada. 

40000-40250 Consulta de fichas. 
41000-41110 Mcnudcopcioncs para 
impresidn de etiquetas. 


41500-41610 Impresidn de etiquetas 
lodas en una columna. 

42000-42480 Impresion de etiquetas 
lodas en dos columnas. 

43000-43610 Impresidn de etiquetas 
varias en una columna. 

44000-44630 Impresidn de etiquetas 
varias en dos columnas. 
49000-49130 Define tamafios de letra 
para impresidn. 

50000-50151 Rutina de INPUT. 
51000-51070 Dibuja ficha en panta- 
lla. 

60000-60050 Abre archivos y lee lon- 
gitud. 

60500-60650 Busca si cxistc algun 
clicnte. 

61500-61720 Ordcna alfabcticamen- 
tc alias. 

61730-61740 Graba alias o modifica- 
cioncs cn archivo principal. 
62000-62290 Ordcna alfabcticamcn- 
tc la modificacidn de Razdn social. 

Variables 

importantes 

L y N: para los buclcs. 

Al$: para Razdn Social. 

A2$: para Domicilio. 

A3$: para Cddigo Postal. 

A4$: para localidad. 

A5$: para provincia. 

A6$: para tclcfonos. 

A7$: para N° de I.V.A. 

A8$: para N 8 de ganancias. 

B$: Dcvuclvc lo ingresado cn la ruti- 
na de INPUT. 

X$: Contiene la STRINGS a imprimir 
a traves de MIDS. 

X: Contiene la cantidad de caractcres 
que debe rccibir la rutina de INPUT. 
Nl: Contiene la cantidad de registros 
existentes en archivo. 

Y$: Nombre buscado. 

F: Fin de archivo. 

I: Inicio de archivo. 

P: Promedio entre F e I. 

0$: para Cddigo de clientes en 
ORDEN.ARC 



' AGENDA COMERCIAL 
\ 

************************ 

' * by * 

* * * 

'* JOSE DOMINGO GRIFFO * 
************************ 


10 
15 
20 
25 
27 
30 
40 

45 ' 

46 CLEAR 1000, &HE000 :BLOAD" 
RECUADRO . BIN" : DEFUSR1=&HEA0 
0 

50 SCREEN 0: WIDTH 39 :KEYOFF 
: COLOR 3,0 
55 DEFINT A-Z 

60 OUT &HAB, 12 : POKE &HFCAB, 
255: 'ENCIENDE CAPS Y TOMA M 
AYUSCULAS 

65 POKE &HFBB1, 1 : ' ANTI ST 
OP 

70 MAXFILES=2 

80 GOSUB 1000:' MENU GENERA 
L 

90 ON B GOTO 100,200,300,40 
0,500, 600 

100 GOSUB 60000 :GOSUB 10000 
: GOSUB 61730 : GOSUB 61500:RU 
N 100 

200 ' MODIFICAR FICHAS 
210 GOSUB 20000:' TOMA MODI 
F Y GRABA 

220 IF OD=l THEN GOSUB 6200 
0 :RUN 200:' ORDENA ALFA. MO 
DIFI 

230 RUN 200 
300 ' LISTADOS 
303 GOSUB 3000 
305 ON B GOTO 31000,32000,3 
3000,34000, 10 
400 ' VER FICHAS 
410 GOTO 40000 
500 ' ETIQUETAS 
,510 GOSUB 41000:' ELIGE OPC 
ION 

520 ON B GOTO 41500,42000,4 
3000,44000 

600 DEFUSR=&H0: A=USR(1) :'FI 
N 

800 ' ESCRIBE LETRA POR LET 
RA 

810 LOCATEO , 2 1 : PRINTSTRINGS 
(39,254) : LOCATEO, 21 
820 FOR L=1 TO LEN‘(X$) STEP 
3:PRINTMID$ (X$,L,3) ; 

830 SOUND 8,&B11111111: SOUN 
D7,&B0 0001100: SOUND11 , 0 : SOU 
ND12, 16:SOUND13, 0:SOUND 8,0 
860 NEXT: RETURN 
900 X$="z z z z ELIJA UNA O 


PCION z z z z " : GOSU 

B 800: LOCATE 33, 21 :X=1 : GOSU 
B 50000 :B=VAL (B$) :RETURN 
910 X$="JJJJJJJJ INGRESE RA 
ZON SOCIAL JJJJJJJJ " : GOSU 
B800 : RETURN 

920 X$="IIIIIIII INGRESE EL 
DOMICILIO IIIIIIII ": GOSUB 
800: RETURN 

925 X$="yyyyyyyy INGRESE CO 
DIGO POSTAL yyyyyyy ":GOSU 
B800: RETURN 

930 X$="JJJJJJJJ INGRESE LA 
LOCAL I DAD JJJJJJJJ ": GOSUB 
800: RETURN 

940 X$="IIIIIIII INGRESE LA 
PROVINCIA IIIIIIII ":GOSUB 
800: RETURN 

950 X$="JJJJJJ INGRESE NROS 
TELEFONICOS JJJJJJ ": GOSUB 
800: RETURN 

960 X$="IIIIIIII INGRESE NR 
O DE I.V.A IIII 
IIII ":GOSUB800: RETURN 
970 X$="JJJJJJJJ INGRESE NR 
O DE GANA. JJJJJJJJ " : GOSU 
B 800: RETURN 

975 X$="yyyyyyyyy UN MOMENT 
o POR favor yyyyyyy ":GOSU 
B800 : PLAY"V1503T32A" : RETURN 

976 LOCATE5, 10: PRINT" * N 
O HAY INGRESOS *":Z$=INKEY 
$ : BEEP : IFZ$=""THEN976ELSERU 
N 

980 X$="xxxxxxxxx CONFORMS 
(S/N) xxxxxxxx ":LOCATE3 
6, 20:GOSUB800:X=1 :GOSUB5000 
0 

981 IFB$="S"ORB$“"s"THENB=l 
: RETURN : ELSEIFB$="N"ORB$="n 
"THENB=0 : RETURN : ELSEGOTO980 

985 CLS : LOCATE5 ,10: PRINT"EL 
CLIENTE: ";A1$: LOCATE 5, 12 :P 

RINT"YA EXIXTE CON EL NUMER 
O: ";VAL (0$) 

986 BEEP: IFINKEY$=""THEN986 
ELSE10000 

990 X$="x ENTER = ACEPTA 

BARRA = NO x" : GOSUB8 

00 

991 LOCATEC, R: Z$=INPUT$ (1) : 
IF ASC (Z$) =27 THEN RUN 

992 IFASC (Z$) =13THENV=1 :RET 
URN 

993 IFASC (Z$) <=32THENV=0 :RET 
URN 

994 GOTO 990 

995 X$=" SACO POR IMPR 


ESORA [S-N] ": GOSUB 800 :X= 
1 : GOSUB 50000 

996 IF B$="S"ORB$="s"THEN B 
=1 : RETURN : ELSE IFB$="N"ORB$ 
="n"THEN B=0 : RETURN :ELSE9 95 

997 CLS: LOCATE 8, 5:PRINT"PRE 
PARE LA IMPRESORA" : LOCATE 5 
, 8 :PRINT"PRESIONE [P] PARA 
IMPRIMIR": LOCATE 9, 11 : PRINT" 
[ESC]- PARA SALIR" 

998 Z$=INKEY$:IFZ$=""THEN99 
8ELSE IF ASC (Z$) =27 THEN RU 
N ELSE IF ASC (Z$) =80 OR ASC 
(Z$) =112 THEN CLS: LOCATE 8, 
10:PRINT"... imprimiendo.": 
RETURN: ELSE 998 

1000 ' MENU GENERAL 
1010 CLS :PRINTSPC (11) "* A G 
E N D A *" 

1020 PRINTSTRING$ (3 9, 42) 

1030 LOCATE 10, 5 : PRINT" [1 ] - 
A L T A S" 

1040 LOCATE 10,7:PRINT"[2]- 
M O' D I F I C A R" 

1050 LOCATE 10, 9 :PRINT" [3]- 
LISTADOS" 

1060 LOCATE10, 11 :PRINT" [ 4 ] — 
VER FICHAS" 

1070 LOCATE10, 13 :PRINT" [5] - 
ETIQUETAS" 

1080 LOCATE10, 15 :PRINT" [ 6] - 
F I N" 

1090 GOSUB 900: IFB<10RB>6TH 

EN1090 

1100 RETURN 

3000 ' LISTADOS 

3010 CLS :PRINTSPC (9) "* L I 

S T A D O S *" :PRINTSTRING$ 

(39,42) 

3020 LOCATE 10, 5 : PRINT" [1 ] - 
LISTADO COMPLETO" 

3030 LOCATE 10, 7 : PRINT" [2 ] - 
LISTADO PARCIAL" 

3040 LOCATE 10, 9 : PRINT" [3 ] - 
LIST. POR LOCAL I DAD" 

3050 LOCATE 10, 11 :PRINT" [4] 
-LIST. POR PROVINCIA" 

3060 LOCATE 10, 13 : PRINT" [5] 
-FIN" 

3070 GOSUB 900 : IFB<10RB>5TH 

EN3070 

3080 RETURN 

10000 ' ALTAS DE CLIENTES 
10010 CLS: PRINT" * ALTA 
S * CLIENTE N' : ";N1+1 
10020 GOSUB 51000 
10030 ' PIDE RAZON SOCIAL 
10040 GOSUB 910 :X=24: LOCATE 
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14,3: GOSUB50000 
10050 IFB$=" "THEN1 0040 
10060 Y=24-LEN(B$) :Y$=B$+SP 
ACE$ (Y) 

10070 ' BUSCA EN ARCHIVO SI 
EXISTE 

10080 GOSUB 975 : GOSUB 60500 
10090 IF V=1 THEN 985:' YA 
EXISTE 

10100 LSET A1$=Y$ 

10110 ' TOMA DOMICILIO 
10130 GOSUB 920: X=2 4 : LOCATE 
14, 6 : GOSUB50000 : LSET A2$=B$ 
10150 'TOMA CODIGO POSTAL 
10160 GOSUB 925 : X=4 : LOCATE1 
4,9: GOSUB50000 : LSET A3$=B$ 
10180 'TOMA LOCALIDAD 
10190 GOSUB 930: X= 1 6 : LOCATE 
19,9: GOSUB50000 : LSET A4$=B$ 
10210 'TOMA PROVINCIA 
10220 GOSUB 940 :X=15: LOCATE 
14, 12 .-GOSUB 50000: LSET A5$= 
B$ 

10240 'TOMA TELEFONOS 
10250 GOSUB 950: X=2 4 : LOCATE 
14 , 15 : GOSUB50000 : LSET A6$=B 
$ 

10270 ' TOMA N' DE I.V.A. 
10280 GOSUB 960 :X=10: LOCATE 
8,18: X=10 : GOSUB50000 : LSET A 
7 $=B$ 

10300 'TOMA N' DE GANANCIAS 
10310 GOSUB 97 0:X=10: LOCATE 
28, 18 : GOSUB 50000: LSET A8$ 
=B$ 


10330 ' CONSULTA CONFORMIDA 
D 

10340 GOSUB 980: IF B=1 THEN 
CLS : GOSUB975 : RETURN 
10500 ' MODIFICA DATOS INGR 
ESADOS 

10520 C=1 4 : R=3 : GOSUB 990:IF 
V=1THEN10600 

10530 ' CORRIGE RAZON SOCIA 
L 

10540 GOSUB 910: LOCATE 14,3: 
PRINTSPC (24 ) : LOCATE 1 4 , 3 : X=2 
4 

10550 GOSUB 50000 :Y$=B$+SPA 
CE$ (24-LEN (B$) ) 

10560 IF A1$=Y$ THEN 10600 
10570 ' BUSCA SI EXISTE 
10580 GOSUB 975 : GOSUB 60500 
: IFV=1THEN985 
10590 LSET A1$=Y$ 

10600 ' TOMA NUEVA DIRECCIO 
N 

10610 C=1 4 : R= 6 : GOSUB 990:IF 


V=1THEN10650 

10620 GOSUB 920 : LOCATE1 4 , 6: 
PRINTSPC (24) : LOCATE 14, 6 : X=2 
4 : GOSUB50000 
10630 LSET A2$=B$ 

10650 ' TOMA NUEVO CODIGO P 
OSTAL 

10660 C=1 4 : R=9 : GOSUB 990:IF 
V-l THEN 10700 
10670 GOSUB 925 :LOCATE14 , 9: 
PRINTSPC ( 4 ) : LOCATE 1 4 , 9 : X=4 : 
GOSUB50000 
10680 LSET A3$=B$ 

10700 ' TOMA NUEVA LOCALIDA 
D 

10710 C=1 9 : R=9 : GOSUB 990: IF 
V=1 THEN 10750 
10720 GOSUB 930 : LOCATE1 9, 9: 
PRINTSPC (16): LOCATE 1 9,9: X=1 
6 : GOSUB50000 
10730 LSET A4$=B$ 

10750 ' TOMA NUEVO PROVINCI 
A 

10760 C=14 :R=12 : GOSUB 990:1 
F V=1 THEN 10800 
10770 GOSUB 940 : LOCATE14 , 12 
: PRINTSPC (24) :LOCATE14, 12 :X 
=24 :GOSUB50000 
10780 LSET A5$=B$ 

10800 ' TOMA NUEVOS TELEFON 
OS 

10810 C=1 4 : R=1 5 : GOSUB 990:1 
F V=1 THEN 10850 
10820 GOSUB 950 : LOCATE14 , 15 
: PRINTSPC (24) : LOCATE1 4 , 15 :X 
=24 :GOSUB50000 
10830 LSET A6$=B$ 

10850 ' TOMA NUEVO N' DE I . 
V.A. 

10860 C=8 : R=18 : GOSUB 990:IF 
V=1 THEN 10900 
10870 GOSUB 960:LOCATE8, 18: 
PRINTSPC (10) : LOCATE 8 , 1 8 : X=1 
0 : GOSUB50000 
10880 LSET A7$=B$ 

10900 ' TOMA NUEVO N' DE GA 
NANCIAS 

10910 C=2 8 : R=1 8 : GOSUB 990:1 
F V=1 THEN 10950 
10920 GOSUB 970: LOCATE2 8,18 
: PRINTSPC (10): LOCATE2 8 , 1 8 : X 
=10 : GOSUB50000 
10930 LSET A8$=B$ 

10950 GOTO 10330 

20000 ' MODIFICACION DE FIC 

HAS 

20010 CLS: PRINTSPC (9) :PRINT 
"* MOD I F I CAR *" :PRI 


NTSTRING$ (39,42) 

20015 GOSUB 60000: IF N1=0 T 
HEN 976 

20030 LOCATE 0, 3 : PRINT"EXIS 
TEN : ";N1; " F I CHAS ": LOCATE 
17,5 : PRINTSPC (4 ) :LOCATE17, 6 
: PRINT" — " 

20040 X$="E INGRESE N' DE 
FICHA A MODIFICAR E":GOS 
UB800 

20050 LOCATE17 , 5 : X=4 : GOSUB5 
0000 

20060 B=VAL(B$) 

20070 IF B <1 OR B> N1 THEN 
20030 

20075 BM=B 

20080 GET#1 ,BM 

20085 Cl $=A1 $ : C2 $=A2 $ : C3$=A 

3$ :C4$=A4$ : C5$=A5$ :C6$=A6$ : 

C7 $=A7 $ : C8 $=A8 $ 

20090 ' PRESENTA FICHA 
20100 BEEP : CLS : GOSUB 51000 
20110 LOCATE14 , 3 :PRINTA1$ 
20120 LOCATE 14, 6 : P RI NT A2 $ 
20130 LOCATE14, 9 :PRINTA3$ 
20140 LOCATE19, 9 :PRINTA4$ 
20150 LOCATE14 , 12 : PRINTA5S 
20160 LOCATE 14 , 15 : PRINTA6$ 
20170 LOCATE8, 18 :PRINTA7$ 
20180 LOCATE2 8 ,18: PRINTA8$ 
20200 LOCATE 0,0: PRINT" * M 
ODIFICACION DE FICHA N' : 

" ; BM : PRINTSTRING$ (39,46) 
20210 ' PIDE CONFORMIDAD 
20220 GOSUB 980: IF B=1 THEN 
CLOSE: GOTO 20000 
20230 ' MODIFICACIONES 
20240 C=14 :R=3 : GOSUB 990:IF 
V=1 THEN 20350 
20250 ' MODIFICA RAZON SOCI 
AL 

20260 GOSUB 910 :LOCATEl 4 , 3 : 
PRINTSPC (24): LOCATE1 4,3: X=2 
4 

20270 GOSUB 50000: IF B$=""T 
HEN20270 

20275 Y$=B$+SPACE$ (24-LEN (B 

$) ) 

20280 IF A1$=Y$ THEN OD=0:G 
OTO 20350 

20290 ' BUSCA SI YA EXISTE 
20300 GOSUB 975: GOSUB 60500 
: IF V=1 THEN 985 
20310 LSET A1$=Y$ :OD=l : ' OD= 
l=>CAMBIO RAZON SOCIAL, ORD 
ENAR ALFAB . ! 

20350 ' MODIFICA DIRECCION 
20360 C=1 4 : R=6 : GOSUB 990: IF 


V=1THEN LSET A2$=C2$:GOTO 2 
0400 

20370 GOSUB 920 : LOCATE14 , 6 : 
PRINTSPC (24 ) : LOCATE 1 4 , 6 : X=2 
4 : GOSUB 50000 
20380 LSET A2$=B$ 

20400 ' MODIFICA CODIGO POS 
TAL 

20410 C=1 4 : R=9 : GOSUB 990:IF 
V=1 THEN LSET A3$=C3$:GOTO 
20450 

20420 GOSUB 925:LOCATE 14,9 
: PRINTSPC (4) :LOCATE14, 9 :X=4 
: GOSUB 50000 
20430 LSET A3$=B$ 

20450 ' MODIFICA LOCAL I DAD 
20460 C=1 9 : R= 9 : GOSUB 990:IF 
V=1 THEN LSET A4$=C4$:GOTO 
20500 

20470 GOSUB 930 : LOCATE1 9 , 9 : 
PRINTSPC (16) : LOCATE 19,9: X=1 
6: GOSUB 50000 
20480 LSET A4$=B$ 

20500 ' MODIFICA PROVINCIA 
20510 C=14 :R=12 : GOSUB 990:1 
FV=1THEN LSET A5$=C5$:GOTO 
20550 

20520 GOSUB 94 0 : LOCATE14 , 12 
: PRINTSPC (24 ) :LOCATE14, 12 :X 
=24 : GOSUB 50000 
20530 LSET A5$=B$ 

20550 ' MODIFICA TELEFONOS 
20560 C=1 4 : R=15 : GOSUB 990:1 
F V=1 THEN LSET A6$=C6$:GOT 
O 20600 

20570 GOSUB 950:LOCATE 14,1 
5 :PRINTSPC (24) : LOCATE 14, 15: 
X=24: GOSUB 50000 
20580 LSET A6$=B$ 

20600 ' MODIFICA N' DE I.V. 
A. 

20610 C=8 : R=1 8 : GOSUB 990:IF 
V=1 THEN LSET A7$=C7$:GOTO 
20650 

20620 GOSUB 960 : LOCATE8 , 18 : 
PRINTSPC (10) : LOCATE 8, 18:X=1 
0: GOSUB 50000 
20630 LSET A7$=B$ 

20650 ' MODIFICA N' DE GANA 
NCIAS 

20660 C=28:R=18:GOSUB 990:1 
F V=1 THEN LSET A8$=C8$:GOT 
O 20700 

20670 GOSUB 970:LOCATE 28,1 
8: PRINTSPC (10) : LOCATE28 , 1 8 : 
X=1 0 : GOSUB 50000 
20680 LSET A8$=B$ 

20700 ' CONFORMIDAD DE MODI 


FICACIONES 

20710 GOSUB 980: IF B=1 THEN 
PUT# 1,BM: RETURN 
20720 IF B=0 THEN 20080 
20730 GOTO 20700 
31000 ' LISTADO COMPLETO PO 
R NOMBRE 

31010 CLS : PRINTSPC (9) "* LIS 
TADO COMPLETO * " : PRINTSTRIN 
G$ (39,42) 

31015 GOSUB 60000: IF Nl-0 T 
HEN 976 

31020 GOSUB 995:' IMPRESO ? 
31030 IF B=1 THEN 31500:' I 
MPRESO ! ! 

31040 ' LISTADO POR PANTALL 
A 

31050 CLS :RE=0 

31060 FOR L = 1 TO N1:GET#2 

, L: GET#1 , VAL (0$) 

31070 PRINTUSING" ###"; VAL (O 
$) ; :PRINT"-";A1$;MID$ (A6$,l 
, 10 ) 

31080 RE=RE+1 : IF RE=19 THEN 
GOSUB 31200: CLS :RE=0 
31090 NEXT 

31100 PRINT : PRINT"FIN DE AR 

CHIVO - PRES I ONE RETURN 
\\ 

31110 Z$=INKEY$ : IFZ$=""THEN 
31110 

31120 IF ASC (Z$) =13 THEN RU 
N 

31130 GOTO 31110 
31200 PRINT: PRINT" RETURN=C 
ONTINUA <> [ESC] -SALIDA " 
31210 Z$=INKEY$:IFZ$=""THEN 
31210 

31220 IFASC (Z$ ) =13 THEN RET 
URN 

31222 IFASC (Z$) =27 THEN RUN 

31230 GOTO 31210 

31500 ' LISTADO COMPLETO PO 

R IMPRESORA 

31510 CLS : GOSUB 997 

31520 LPRINTCHR$ (&H12) STRIN 

G$ (80,42) 

31530 LPRINTCHR$ (&HE) SPC (10 
) " LISTADO DE CLIENTES" 
31540 LPRINTCHR$ ( &H12 ) STRIN 
G$ (80, 42) 

31550 LPRINTCHR$ (&HF) "COD. : 
"TAB (9) "RAZON SOCIAL"TAB (35 
) "DOMICILIO"TAB (63) "LOCALID 
AD " TAB (87) "PROVINCIA" TAB ( 1 0 
7) "TELEFONOS" 

31560 LPRINTCHRS (&H12 ) STRIN 
G$ (80, "-") 


31570 FOR L = 1 TO N1:GET#2 
, L:GET#1 , VAL (0$) 

31580 LPRINT CHR$ (&HF) ; :LPR 
INTUSING"###"; VAL (0$) ; :LPRI 
NT " - " ; A1 $TAB (34) A2$TAB (62) A 
3$;"-";A4$;TAB (87) A5$; TAB (1 
07 ) A6$ 

31590 NEXT 

31600 LPRINT: LPRINT: LPRINT" 
TOTAL DE CLIENTES IMPRESOS 
: ";N1 

31610 LPRINTCHR$ (&KC) :RUN 
32000 ' LISTADO PARCIAL 
32010 CLS: PRINTSPC (9)"* LIS 
TADO PARCIAL PRINTSTRING 
$(39,42) 

32015 GOSUB 60000: IF N1=0 T 
HEN 976 

32020 LOCATE2, 10:PRINT"A PA 
RTIR DE LETRA:" 

32030 LOCATE23 ,11: PRINT"-" : 
LOCATE23, 10 :X=1 : GOSUB50000 : 
IF B$=""THEN 32030 
32040 B=ASC (B$) : IF B < 65 O 
R B > 122 THEN 32000 
32050 ' BUSQUEDA A PARTIR D 
E B$ 

32055 CLS : GOSUB 975 

32056 1=1 :F=N1 : S=Q 

32057 GET# 2, I : GET#1 , VAL (0$) 
32059 IF B$=MID$ (Al$ , 1 , 1 ) T 
HEN S=1 : GOTO 32085 

32061 GET#2, F : GET#1 , VAL (0$) 
32063 IF B$=MID$ (Al$, 1, 1) TH 
EN S=1 

32065 P= (F+I ) * . 5 : GET# 2 , P : GE 
T#l, VAL (0$) 

32067 IF B$=MID$ (Al$, 1, 1) T 
HEN F=P : S=1 

32069 IF B$<MID$ (Al$, 1,1) T 
HEN F=P 

32071 IF B$>MID$ (Al$ , 1 , 1 ) T 
HEN I=P 

32073 IF F-I <= 1 THEN 3208 
4 

32075 GOTO 32065 

32084 IF S = 0 THEN 32100 

32085 FOR L = INT(I)TO N1:G 
ET#2 , L : GET#1 , VAL (0$) :IF MID 
$ (Al$, 1, 1) =B$ THEN GOTO3250 
0 

32090 NEXT 

32100 CLS: LOCATE 3, 10: PRINT" 
* NO REGISTRO NOMBRES CON:" 
;B$: PRINT: PRINT: PRINT" * PR 
ESIONE RETURN *":GOSUB 3121 
0 : RUN 32000 

32500 ' LISTA POR PANTALLA 


32505 CLS : FOR N%= L TO N1:G 
ET#2, N% :GET#1 , VAL (0$) 

32510 PRINTUSING"###"; VAL (O 
$) ; : PRI NT " - " ; A1 $ ; MI D$ (A6$,l 
, 10 ) 

32520 RE=RE+1 : IF RE=19 THEN 
RE=0:GOSUB 31200: CLS 
32530 NEXT: GOTO 31100 
33000 ' LISTADOS POR LOCALI 
DAD 

33010 CLS :PRINTSPC (6) "* LIS 
TADOS POR LOCAL I DAD *" :PRIN 
TSTRING$ (39,42) 

33012 GOSUB 60000: IF N1=0 T 
HEN 976 

33015 GOSUB 995:' IMPRESO? 

33016 IF B=1 THEN OP=l ELSE 
OP=0 

33017 LOCATEO, 21 :PRINTSPC (3 

9) 

33020 LOCATE 1, 10:PRINT"LOC 
ALIDAD ?:" 

33030 LOCATE 13, 11 :PRINT"- 


33040 LOCATE 13, 10 :X=1 6 : GOS 
UB 50000 

33050 IFB$=""THEN33040 
33060 GOSUB 975 
33070 B$=B$+SPACE$ (16-LEN (B 
$)) 

33080 FOR L=1 TO N1:GET#2,L 
: GET#1 , VAL (0$ ) 

33090 IF A4$=B$ THEN 33400 
33100 NEXT 

33110 CLS :LOCATE7, 10: PRINT" 
NO REGISTRO CLIENTES EN:" 
33120 LOCATE7, 12 :PRINTB$ 
33130 LOCATE 7,21:PRINT" <> 
PRES I ONE RETURN <> " 

33140 Z$=INKEY$ : IFZ$=""THEN 
33140 

33150 IF ASC (Z$) =13 THEN RU 
N 33000 

33160 GOTO 33140 
33400 ' DIRIGE A PANTALLA O 
IMPRESORA 

33410 IF OP=0 THEN 33500 
33420 IF OP=l THEN 33700 
33500 ' LOCAL I DAD POR PANT A 
LLA 

33510 CLS: FOR N=L TO N1 : GET 
# 2 , N : GET # 1 , VAL ( 0$ ) 

33520 IF A4$=B$ THEN PRINTU 
SING"###"; VAL (0$) ; :PRINT"-" 

; A1$;MID$ (A6$,l,8) :RE=RE+1: 
IF RE=1 9 THEN RE=0: GOSUB 31 
200: CLS 
33540 NEXT 


33550 GOTO 31100 

33700 ' LOCALI DAD POR IMP RE 

SORA 

33710 GOSUB 997:IM=0 
33720 LPRINT CHR$ (&H12) STRI 
NG$ (80, 42) 

33730 LPRINT CHR$ (&HE) "LOCA 
LIDAD DE: ";B$ 

33740 LPRINT CHR$ (&H12) STRI 
NG$ (80, 42) 

33750 LPRINT CHR$ (&HF) "COD . 
: "TAB (15) "RAZON SOCIAL"TAB ( 
50) "DOMICILIO"TAB (80) "TELEF 
ONOS" 

33760 LPRINT CHR$ (&H12) STRI 
NG$ (80, "-") 

33765 LPRINTCHR$ (&HF) ; 

33770 FOR N=L TO N1:GET#2,N 
: GET# 1, VAL (0$) 

33780 IF A4$=B$ THEN LPRINT 
USING"###"; VAL (0$) ; : LPRINT" 
-"; TAB (15) A1$TAB (50) A2$TAB ( 
80) A6$ : IM=IM+1 
33790 NEXT: LPRINT: LPRINT :LP 
RINT"TOTAL ";IM;" CLIENTES 
EN: ";B$ 

33800 LPRINT CHR$ (&HC) 

33810 RUN 

34000 ' LISTADOS POR PROVIN 
CIA 

34010 CLS : PRINTSPC ( 6 ) " * LIS 
TADOS POR PROVINCIA *":PRIN 
TSTRING$ (39,42) 

34015 GOSUB 60000: IF N1=0 T 
HEN 976 

34020 GOSUB 995:' IMPRESO ? 
34030 IF B=1 THEN OP=l ELSE 
OP=0 

34040 LOCATE 0, 21 : PRINTSPC ( 
39) 

34050 LOCATE 1, 10 :PRINT"PRO 
VINCIA?:" 

34060 LOCATE 13 , 11 : PRINT"- 


34070 LOCATE13, 10 :X=15 : GOSU 
B 50000 

34080 IF B$="" THEN 34070 
34090 GOSUB 975 
34100 B$=B$+SPACE$ (15-LEN (B 
$)) 

34110 FOR L = 1 TO N1:GET#2 
, L: GET# 1, VAL (0$) 

34120 IF A5$=B$ THEN 34400 
34130 NEXT 

34140 GOTO 33110:' NO EXIST 
EN 

34400 ' DIRIGE PANTALLA 0 I 
MP RE SORA 


34410 IF OP=0 THEN 34500 
34420 IF OP=l THEN 34700 
34500 ' PROVINCIAS POR PANT 
ALLA 

34510 CLS: FOR N=L TO N1 : GET 
#2 , N : GET#1 , VAL (0$) 

34520 IF A5$=B$ THEN PRINTU 

SING"###"; VAL (0$) ; : PRINT"-" 

;A1$;MID$ (A6$, 1, 10) :RE=RE+1 

: IF RE=1 9 THEN RE=0: GOSUB 3 

1200: CLS 

34530 NEXT 

34540 GOTO 31100 

34700 ' PROVINCIA POR IMPRE 

SORA 

34710 GOSUB 997:IM=0 
34720 LPRINT CHR$ (&H12) STRI 
NG$ (80,42) 

34730 LPRINT CHR$ (SHE) "PROV 
INCIA DE : ";B$ 

34740 LPRINT CHR$ (&H12) STRI 
NG$ (80, 42) 

34750 LPRINT CHR$ (&HF) "COD . 
"TAB (14) "RAZON SOCIAL"TAB(4 
0) "DOMICILIO"TAB (70) "LOCALI 
DAD"TAB (105) "TELEFONOS" 
34760 LPRINTCHR$ (&H12) STRIN 
G$ (80, "-") 

34770 LPRINT CHR$ (&HF) ; 
34780 FOR N=L TO N1:GET#2,N 
: GET # 1 , VAL (0$) 

34790 IF A5$=B$ THEN LPRINT 
USING"###"; VAL (0$) ; : LPRINT" 
-";TAB (14) A1$TAB (40) A2$TAB ( 
70) A3$; "-";A4$;TAB (105) A6$ : 
IM=IM+1 
34800 NEXT 

34810 LPRINT: LPRINT: LPRINT" 
TOTAL "; IM ; " CLIENTES EN:"; 
B$ 

34820 LPRINTCHR$ (&HC) 

34830 RUN 

40000 ' VER FICHAS 
40010 CLS: PRINTSPC (9) : PRINT 
"*CONSULTAS * " : PRI 
NTSTRING$ (39,42) 

40015 GOSUB 60000: IF N1=0 T 
HEN976 

40030 LOCATE 0, 3 : PRINT"EXIS 
TEN : "; N1 ; " FICHAS" : LOCATE 
17, 5: PRINTSPC (4) : LOCATE 17, 6 
: PRI NT" — " 

40040 X$="E INGRESE N' DE 
FICHA A CONSULTAR E":GOS 
UB800 

40050 LOCATE17 , 5 : X=4 : GOSUB5 
0000 

40060 B=VAL (B$) 


40070 IF B <1 OR B> N1 THEN 
40030 

40080 GET#1 , B 
40090 ' PRESENTA FICHA 
40100 BEEP : CLS : GOSUB 51000 
40110 LOCATE14 , 3 : PRINTA1$ 
40120 LOCATE1 4,6: PRINTA2 $ 
40130 LOCATE14, 9:PRINTA3$ 
40140 LOCATE19, 9:PRINTA4$ 
40150 LOCATE14, 12 :PRINTA5$ 
40160 LOCATE1 4,15: PRINTA6$ 
40170 LOCATE8 ,18: PRINTA7 $ 
40180 LOCATE28, 18:PRINTA8$ 
40200 LOCATE 0,0:PRINT" * F 
ICHA N' : ";B 

40210 X$="xx DESEA VER O 
TRA FICHA [S-N] xx":GOSU 
B800 

40220 X=1 :LOCATE33, 21 : GOSUB 
50000 

40230 IFB$="S"ORB$="s"THEN 
RUN 40000 

40240 IFB$="n"ORB$="N"THEN 
RUN 

40250 GOTO 40210 

41000 ' OPCIONES DE IMPRESI 

ON 

41010 ' DE ETIQUETAS 
41020 CLStPRINTSPC (6) "* IMP 
RES I ON DE ETIQUETAS *":PRIN 
TSTRING$ (39,42) 

41030 LOCATE5 , 5 : PRINT" [ 1 ] — T 
ODOS EN UNA COLUMNA" 

41040 LOCATE5, 7 : PRINT" [2] -T 
ODOS EN DOS COLUMNAS" 
41050 LOCATE5, 9 : PRINT" [3] -V 
ARIOS EN UNA COLUMNA" 

41060 LOCATES, 11: PRINT" [4]- 
V ARIOS EN DOS COLUMNAS" 
41062 LOCATE5,13:PRINT"[5]- 
S A L I D A" 

41070 GOSUB 900 

41080 IF B<1 OR B>5 THEN 41 

070 

41090 IF B=5 THEN RUN 
41110 RETURN 

41500 ' ETIQUETAS TODAS EN 
UNA COLUMNA 

41510 CLS:PRINTSPC(2) "* ETI 
QUETAS TODAS EN UNA COLUMNA 
* " : PRINTSTRING$ (39,42) 
41520 GOSUB 60000: IF ,N1=0 T 
HEN 976 

41530 GOSUB 997 

41540 FOR L = 1 TO-Nl:GET#2 

,L:GET#1,VAL(0$) 

41545 LPRINT 

41550 GOSUB 49120:LPRINT "S 


ENORES: C-";VAL(0$) 

41560 GOSUB 49120:LPRINT A1 

$ 

41570 GOSUB 49120:LPRINT A2 

$ 

41580 GOSUB 49120: LPRINT A3 
$; A4$ 

41590 GOSUB 49120:LPRINT A5 
$ 

41600 LPRINT: LPRINT: LPRINT 
41610 NEXT : RUN 
42000 'ETIQUETAS TODAS EN D 
OS COLUMNAS 

42010 CLS: PRINT"* ETIQUETAS 
TODAS EN 2 COLUMNAS *":PRI 
NTSTRING$ (39,42) 

42020 GOSUB 60000: IF N1=0 T 
HEN 976 

42030 GOSUB 997:L=1 
42035 GET#2 , L : GET#1 , VAL (0$) 
42040 B1$=A1$ :B2$=A2$ :B3$=A 
3 $ : B4 $=A4 $ : B5 $=A5§„: B6 $=A6 $ : 
B7$=A7$:B8$-A8$76l$-0$ 

42045 L=L+1 : IF L > N1 THEN 
42400 

42050 GET#2 , L: GET#1 , VAL (0$) 
42070 LPRINT 

42080 GOSUB- 4 9120 : LPRINT"SE 
NORES : C-" ; VAL (01 $ ) ; 

TAB (30) "SENORES: C-" 

; VAL (0$) 

42290 GOSUB 49120:LPRINT B1 
$ ; TAB ( 3 0 ) A1 $ 

42300 GOSUB4 9120: LPRINT B2$ 
; TAB (30) A2$ 

42310 GOSUB4 9120: LPRINT B3$ 
;B4$;TAB(30) A3$;A4$ 

42320 GOSUB4 9120 : LPRINT B5$ 
; TAB (30) ;A5$ 

42330 LPRINT: LPRINT: LPRINT 
42340 L—L+l : IF L > N1 THEN 
RUN 

42350 GOTO42035 

42400 ' IMPRESION DE LA ETI 

QUETA IMPAR 

42410 LPRINT 

42420 GOSUB 4 9120 : LPRINT"SE 
NORES: C-";VAL (0$) 

42430 GOSUB 49120:LPRINT B1 

$ 

42440 GOSUB 49120:LPRINT B2 

$ 

42450 GOSUB 49120:LPRINT B3 
$;B4$ 

42460 GOSUB 49120: LPRINT B5 

$ 

42470 LPRINT: LPRINT: LPRINT 
42480 RUN 


43000 ' VARIOS EN UNA COLUM 
NA 

43010 DIM CA$ (1000) : GOSUB 6 
0000 :CA=0 

43020 CLS: PRINT" ETIQUETAS: 
V ARIAS EN UNA COLUMNA" :PRI 
NTSTRING$ (39,42) 

43025 IF Nl-0 THEN 976 
43030 LOCATEO, 10 : PRINT"CODI 
GO DE CLIENTE: 

" : LOCATE 19,11: PRINT" — " 
43040 LOCATE2 ,16: PRINT"* es 

criba [ FIN ] para imprimir 
\\ 

43050 LOCATE19, 10 : X=4 : GOSUB 
50000 

43055 IF B$="FIN" OR B$="fi 
n"THEN43500 

43060 IF B$<"1 "OR VAL(B$)>N 

1THENLOCATE1 9, 10:PRINT" NO 

EXISTE ! " : F0RL=1T015 : BEEP : N 

EXT: GOTO 43030 

43070 IF VAL (B$) =0 THEN 430 

30 

43080 CA=CA+1 : IF CA>1000 TH 
EN 43500 

43090 CA$ (CA) =B$ 

43095 LOCATEO, 20 :PRINT"ULTI 

MO N ' INGRESADO : " ; VAL (B$ ) ; " 
\\ 

43100 GOTO 43030 
43500 ' IMPRESION VARIAS EN 
UNA COLUMNA 

43505 IF VAL (CA$ (1 ) ) =0 THEN 
RUN 

43510 CLS : GOSUB 997 
43520 FOR L = 1 TO CA 
43540 GET#1 , VAL (CA$ (L) ) 
43550 LPRINT 

43555 GOSUB 4 91 20 : LPRINT"SE 
NORES: C-"; VAL (CA$ (L 

)> 

43560 GOSUB 49120:LPRINT A1 
$ 

43570 GOSUB 49120: LPRINT A2 

$ 

43580 GOSUB 49120:LPRINT A3 
$; A4$ 

43590 GOSUB 49120:LPRINT A5 
$ 

43600 LPRINT -.LPRINT: LPRINT 
43610 NEXT : RUN 
44000 'VARIAS EN DOS COLUMN 
AS 

44010 DIM CA$ (1000) : GOSUB 6 
0000 : CA=0 

44020 CLS : PRINT"ETIQUETAS : 
VARIAS EN DOS COLUMNAS " : PR 


mmmn 


INTSTRING$ (39,42) 

44025 IF N1=0 THEN 976 
44030 LOCATEO ,10: PRINT"CODI 
GO DEL CLIENTE: 

" :LOCATE19, 11 : PRINT"- 

// 

44040 LOCATE 2 , 1 6 : PRINT"esc 
riba { FIN } para imprimir" 
44050 LOCATE1 9,10: X=4 : GOSUB 
50000 

44060 IFB$<"l"ORVAL (B$) >N1 
THEN LOCATE 19,10:PRINT" NO 
EXISTE ! " : FOR L=1T015:BEEP 
: NEXT: GOTO 44030 
44065 IF B$="FIN"ORB$="f in" 
THEN 44500 

44070 IF VAL (B$) =0 THEN 440 
30 

44080 CA=CA+1 : IF CA>1000 TH 
EN 44500 

44090 CA$ (CA) =B$ 

44095 LOCATEO, 20: PRINT"ULTI 

MO N' INGRESADO: VAL (B$) ; " 
\\ 

44100 GOTO 44030 
44500 ' IMPRESION VARIOS EN 
DOS COLUMNAS 

44505 IF VAL (CA$ (1) ) =0 THEN 
RUN 

44510 GOSUB 997:L=1 
44520 GET#1 , VAL (CA$ (L) ) 
44530 B1$=A1$ :B2$=A2$ :B3$=A 
3$ : B4 $=A4 $ : B5$=A5$ : 0$=CA$ (L 
) 

44535 L=L+1 : IF L > CA THEN 
42400 

44540 GET# 1, VAL (CA$ (L) ) 
44550 LPRINT 

44560 GOSUB 49120 : LPRINT"SE 
NORES: C-";VAL (0$) TA 

B (30) "SENORES: C-";V 

AL (CA$ (L) ) 

44570 GOSUB 49120 :LPRINT B1 
$ ; TAB (30) ;A1$ 

44580 GOSUB 49120 :LPRINT B2 
$;TAB (30) ;A2$ 

44590 GOSUB 49120:LPRINT B3 
$;B4$;TAB (30) A3$;A4$ 

44600 GOSUB 49120 :LPRINT B5 
$;TAB (30) ; A5$ . 

44610 LPRINT: LPRINT: LPRINT 
44620 L=L+1 : IF L> CA THEN R 
UN 

44630 GOTO 44520 

49000 ' TAMA%OS DE LETRAS P 

OR IMPRESORA 

49010 ' LETRA GRANDE 

49100 LPRINT CHR$ (&H12) ;CHR 


$ (&HE) ; : RETURN 
49110 ' 

49120 ' LETRA MED I ANA 
49130 LPRINTCHRS (&H12) ;CHR$ 
(&HF) ;CHR$ (SHE) ; : RETURN 
50000 ' INPUT 
50020 B$=SPACE$ (X) : 1=0 
50030 1=1+1 

50040 A$=INPUT$ (1) :A=ASC(A$ 
) :IFA=300RA=310RA=120RA=110 
RA=2 4 ORA= 9THEN5 0040 
50050 IFA=27 THEN RUN 
50060 IFA=13THEN50150 
50070 IFA=8THENIFI=1THEN500 
4 0ELSEMID$ (B$ ,1-1, X-I+2 ) =RI 
GHT$ (B$,X-I+1) +" " : PRINTCHR 
$ (29) ; RIGHT $ (B$, X-I+2) ; STRI 
NG$ (X-I+2, 29) ; : 1=1-1 : GOTO50 
040 

50080 IFA=127THENMID$ (B$, I, 
X-I+l) =RIGHT$ (B$, X-I) +" " :P 
RINTRIGHT$ (B$, X-I+l ); STRING 
$ (X-I+l, 2 9) ; : GOTO5004 0 
50090 IFA=18THENMID$ (B$ , I , X 
-I+l)=" "+RIGHT$ (B$, X-I+l) : 
PRINTRIGHT$ (B$,. X-I+l) ;STRIN 
G$ (X-I+l, 29) ; :GOT050040 
50095 I FA=2 8THENI F I >XTHEN 5 0 
040 ELSEPRINTA$; :GOTO 50030 
50110 IFA=2 9THENIFI=1THEN50 
040ELSEPRINTA$; : 1=1-1 :GOT05 
0040 

50120 IFI>XTHENI=I-1 : GOTO50 
030 

50130 PRINTA$; :MID$ (B$, I, 1) 
=A$ 

50140 GOT050030 

50150 FORA=lTOX:IFRIGHT$ (B$ 
,1)=" "THENB$=LEFT$ (B$ , LEN ( 
B$) -1) : NEXTA 

50151 RETURN 

51000 ' PRESENTA RECUADRO 
51050 U=USR1 (0) 

51060 LOCATE1 , 3 :PRINT"RAZON 
SOCIAL : " : LOCATE1 , 6 :PRINT"D 
OMICILIO : " : LOCATE1 , 9 : PRI 

NT"LOCALIDAD : " : LOCATE 1 , 1 

2 :PRINT"PROVINCIA :":LOCA 
TE1, 15: PRINT" TELEFONOS :" 

: LOCATE 1 , 18 : PRINT "I . V. A. : 
VN' GAN.: 


51070 X$=" ===== — ======= 

=======" :LOCATEl 4, 4 :PRINTX$ 

: LOCATE14 , 7 : PRINTXS : LOCATE1 
4,10: PRINT"==== =========== 

=====" :LOCATE14, 13: PRINT"== 

=============" : LOCATE 14 , 1 6 : 


PRINTX$ : LOCATE8, 19:PRINT"== 

====" : LOCATE28 , 1 9 : PRINT 

"===== ": RETURN 

60000 ' ABRE ARCHIVOS 
60010 OPEN"AGENDA. ARC"AS#1 
LEN=128 

60020 FIELD#1 , 24 AS Al$,24 
AS A2$ , 5 AS A3$ , 1 6 AS A4$,l 
5 AS A5$, 24 AS A6$,10 AS A7 
$,10 AS A8$ 

60030 OPEN"ORDEN . ARC"AS#2 L 
EN=4 

60040 FIELD #2,4 AS 0$ 

60045 Nl=LOF ( 1 ) /128 
60050 RETURN 

60060 ' Al$=RAZON SOCIAS 
60070 ' A2$=DOMICILIO 
60080 ' A3$=COD . POSTAL 
60090 ' A 4 $ =LOCAL I DAD 
60100 ' A5$=PROVINCIA 
60110 ' A6$ =TELEFONOS 
60120 ' A7 $=N' DE I.V.A 
60130 ' A8$=N' DE GAN AN Cl AS 
60500 'BUSCA EXISTE NUEVO C 
LIENTE 

60510 ' SI EXISTE V=1 ELSE 
V=0 

60520 IF N1=0 THEN V=0:RETU 
RN 

60530 F=N1 : 1=1 : V=0 : VDP (1 ) =2 
08 

60540 GET#2, F: GET# 1, VAL (0$) 
60550 IF Y$=A1 $ THEN V=1:VD 
P (1) =240 : RETURN 
60560 GET#2, I : GET#1, VAL (0$) 
60570 IF Y$=A1$ THEN V=1:VD 
P ( 1 ) =2 4 0 : RETURN 
60590 P= (I+F) /2 
60600 GET#2 , P : GET#1 , VAL (0$ ) 
60610 IF Y$ = Al$ THEN V=1 : 
VDP ( 1 ) =2 4 0 : RETURN 
60620 IF Y$ < A1 $ THEN F=P- 
1 : 1 = 1+1 

60630 IF Y$ > Al$ THEN I=P+ 
1 : F=F-1 

60640 IF F-I < 1 THEN V=0:V 
DP (1) =240 -.RETURN 
60650 GOTO 60540 
61500 ' ORDENA DATOS EN #2 
61510 ' POR N' DE CLIENTE 
61520 IF N1=0 THEN LSET 0$= 
"1 ": PUT# 2, 1: RETURN 
61530 F=N1 : 1=1 : V=0 : VDP (1 ) =2 
08 

61540 Y$=A1$ 

61550 P= (I+F) /2 

61560 GET #2 , P : GET#1 , VAL (0$ 

) 


61570 IF Y$ > Al$ THEN I=P 
61580 IF Y$ < Al$ THEN F=P 
61590 IF F-I <= 1 THEN 6161 
0 

61600 GOTO 61550 

61610 GET #2,1: GET#1 , VAL (0$ 

) 

61620 IF Y$ < Al$ THEN N=I : 
GOTO 61680 

61630 GET #2 , F : GET#1 , VAL (0$ 

) 

61640 IF Y$ < Al$ THEN N=F : 
GOTO 61680 
61650 N=F+1 
61660 ' 

61670 ' BAJA TODOS LOS DATO 
S 

61680 FOR L=N1 TO INT (N) ST 
EP -1 

61690 GET# 2, L:PUT#2, L+l 
61700 NEXT 

61710 LSET 0$=STR$ (Nl+1) :PU 
T#2 , N 

61720 VDP ( 1 ) =2 4 0 : RETURN 

61730 ' GRABA DATOS POR ORD 

EN DE INGRESO 

61740 PUT#1, Nl+1 : RETURN 

62000 ' ORDENA ALFABETICAME 

NTE MODIFICACION 

62005 GOSUB 975 

62010 'BUSCA EN #2 COD. MOD 

IFICADO 

62020 FOR L = 1 TO N1:GET#2 
,L 

62030 IF VAL (0$ ) =BM THEN 62 
050 

62040 NEXT 

62050 'LO COLOCA EN ULTIMO 
LUGAR 


62055 IF L = N1 THEN 62090! 
62060 FOR N=L+1 TO N1 
62070 GET#2 , N : PUT#2 , N-l 
62080 NEXT 

62090 ' BUSCA EL LUGAR CORR 
ECTO 

62100 Y$=A1 $ : ' NOMBRE A ORD 
ENAR 

62110 F—Nl-1: 1=1 : V=0 
62120 P= (I+F) /2 
62130 GET #2 , P : GET#1 , VAL (0$) 
62140 IF Y$ > Al$ THEN I=P 
62150 IF Y$ < Al$ THEN F=P 
62160 IF F-I <= 1 THEN 6218 
0 

62170 GOTO 62120 
62180 GET#2, I :GET#1, VAL (0$) 
62190 IF Y$ < Al$ THEN N=I : 
GOTO62250 

62200 GET#2 , F : GET#1 , VAL (0$) 
62210 IF Y$ < Al$ THEN N=F : 
GOTO62250 
62220 N=F+1 
62230 ' 

62240 'HACE LUGAR BAJANDO L 
OS DATOS 

62250 FOR L = Nl-1 TO INT (N 
) STEP -1 

62260 GET#2, L :PUT#2 , L+l 
62270 NEXT 

62280 LSET 0$=STR$ (BM) : PUT# 
2 , N 

62290 RETURN 

65000 SAVE"AGENDA . MSX" 

65100 STOP 
65200 KILL"*. ARC 


CARGAD0R 


10 ' PRESENTA RECUADRO 
20 CLEAR 1 0 0 0 , & HE 000 
30 FOR L%=&HEA00 TO &HEA6F 
40 READ A$ : POKE L%,VAL("&h" 
+A$) 

50 NEXT 


70 B SAVE "RECUADRO. BIN", SHEA 
00, &HEA6F, &HEA00 


100 

DATA 

21, 51, 00, 3E, 18, CD, 

CD , 

07 


110 

DATA 

21, 77, 00, 3E, 19, CD, 

CD, 

07 


120 

DATA 

21,21, 03, 3E, 1A, CD, 

CD, 

07 


130 

DATA 

21, 47, 03, 3E, IB, CD, 

CD, 

07 


140 

DATA 

21,52,00, CD, 5A, EA 

150 

DATA 

21, CA, 00, CD, 5A, EA 

160 

DATA 

21 , 42, 01 , CD, 5A, EA 

170 

DATA 

21, BA, 01, CD, 5A, EA 

180 

DATA 

21,32,02, CD, 5A, EA 

190 

DATA 

21, AA, 02, CD, 5A, EA 

200 

DATA 

21, 22, 03, CD, 5A, EA 

210 

DATA 

21,79,00,11,28,00 

220 

DATA 

CD, 6 5 , E A ,21, 9F, 00 

230 

DATA 

CD, 65, EA, C9 

240 

DATA 

06, 25, 3E, 17, CD, CD, 

07 



250 

DATA 

23, 10,F8,C9 

260 

DATA 

06, 11, 3E, 16, CD, CD, 

07 



270 

DATA 

19,10, F8, C9 


LOAD 





NUEVA 
DIRECCION 

A partir del 21 de marzo la nueva direccion de LOAD MSX 
es Mexico 625, 3 2 piso, (1097) Buenos Aires 
Tel: 30-0991 y 331-7815 




Pinball 

Blaster 


Este juego combina o- 
tros dos tradicionales 
en una forma original: 
se trata del clasico 
"flipper" en el que las 
palancas que sirven 
para mantener la bola 
metalica en juego se 
reemplazaron por un 
canoncito que dispara 
balines, los que permi- 
ten mantener en movi- 
miento dicha esfera. 
Cuando comienza el 
juego se puede elegir 
jugar hasta con 4 juga- 
dores pulsando simple- 
mente las flechas de 
cursor hacia arriba o 
hacia abajo. 

Una vez iniciado el 
juego, aparece la bola 
en la canaleta que se 
dirige hacia el resorte 
disparador. Para con- 
trolar el desplazamien- 
to del resorte se utili- 
zan las teclas de 
cursor, mientras que 
un indicador oscilante 
nos muestra cuanta 
fuerza tiene el resorte 
en un momento dado. 

i 


Es recomendable utili- 
zar la fuerza de la mi- 
tad hacia el tope, pues 
si no la bola no llegara 
a la lengiieta que per- 


mite su acceso al rue- 
do. 

Una vez allf, la bola 
rebota contra los "dis- 
positivos electromag- 
neticos" que repelen su 
choque, en forma tan 
realista que realmente 
no nos extranana ver 
los electroimanes que 
los impulsan. 

Segun el aparatito que 
se choque se obtendran 
puntos, bonus, etcete- 
ra. 

El canoncito se apunta 
con los cursores iz- 
quierda y derecha, y 
con la barra espaciado- 
ra se dispara. 

Lo unico que se extra- 
fia en esta version del 
"pinball" o "flipper" es 
la falta del "tilt" (de- 
teccion de sacudida del 
aparato) y la posibili- 
dad de ganar una bola 
extra. Es una version 
excelente para los a- 
mantes del rubro. 


MSX chart 


En mas de una ocasion 
nos han preguntado so- 
bre la existencia de un 
programa para lo que 
se denomina "graficos 
de gestidn", es decir, la 
posibilidad de graficar 
sobre un conjunto de 
datos y obtener grafi- 
cos de torta, barras, es- 
tadisticas, etcetera. 

El MSX CHART es la 
respuesta a estas in- 
quietudes. Funciona en 
MSX1. 

El ingreso de datos se 
hace por teclado. Se 
toman el eje x y el eje 
y, segun sea el gr&fico 
que se va a representar. 
Las posibilidades gra- 
ficas de este utilitario 
son: grafico de lineas, 
grafico de barras, gra- 
fico de columnas, de 
torta, de areas, mezcla- 
do y de puntos. 

Por otra parte es posi- 
ble imprimir los grafi- 
cos, si se tiene la im- 
presora adecuada. 
Ademas, en el analisis 
estadi'stico se pueden 
calcular la media, va- 


riancia, desviacion es- 
tandar, media geome- 
trica, regresion lineal y 
coeficiente de correla- 
cidn estimativa de e- 
rror. 

En resumen, un utilita- 
rio interesante que po- 
dna tener la posibili- 
dad de leer datos de, 
por ejemplo, MSX 
Plan, pero con lo ofre- 
cido es una opcion va- 
lida para el usuario "de 
gestidn". 


Autoedicion 
para MSX 

El GEOS PAGE MA- 
KER fue diseflado es- 
pecialmente para llenar 
un vacfo existente den- 
tro del mercado de soft 
para MSX. 

El programa se dedica 
a la edicion y creacion 
de p&ginas de formato 
integral (20.6 x 26.3 
cm); puede ser usado 
para la edicion de la- 
youts, autoedicion, car- 
teles personales y pro- 




pagandas en general. 

El programa se divide 
en distintos bloques o- 
perativos: 

Menu principal: 

Es el corazon del pro- 
grama que invoca a los 
demas bloques. A1 ser 
cargado aparecen 3 
ventanas: el nombre 
del programa, la pagi- 
na editada y las si- 
guientes opciones: 

• Escribe 

• Disefia 

• Estiliza 

• Impresion 

• Sub-menu de opera- 
ciones de E/S. 

Con la primera opcion 
se accede al bloque re- 
dactor. 

Bloque Redactor 
Es el bloque responsa- 
ble de la edicion de 
textos que escribire- 
mos en plena pagina. 
Funciona como el 
MSX BASIC, se orien- 
ta por un cursor trans- 
parente, con los co- 
mandos de teclado o 
los caracteres, space, 
BS, cursores, etcetera. 
No funcionan Home, 
Delete, Insert, Cls, 
Tab. 

Otras funciones son: 

• Cambiar de modo 64 
a 120 columnas 

• Fijar margen izquier- 
do 

• Fijar margen derecho 

• Llamar al sub-menu 
de opciones de redac- 
cion 

• Cambiar de bancos 
de caracteres del buf- 
fer (1 a 3) 

• Reposicion de marge- 
nes predefinidos 
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• Recorrer rdpidamente 
la pagina con graba- 
cion automatica de las 
areas editadas. 
Sub-Menu Redactor 


14piz se configura un d- 
rea que puede sufrir las 
siguientes modificacio- 
nes: 

• Borrado del area 


Las distintas opciones 
disponibles son: 

• Cambiar el color de 
frente por el de fondo 
de los caracteres en 
pantalla 

• Ir al inicio de la pagi- 
na editada 

• Cambiar el modo de 
64 a 120 columnas 

• Cargar banco de alfa- 
betos (*.ALF) 
etcetera. 

Bloque disenador 
Este bloque se utiliza 
para la edicion e im- 
plementacion de figu- 
ras y disefios en la pa- 
gina editada. El usuario 
podrd utilizar los ele- 
mentos detallados a 
continuacion. 

• Dibujar puntos a ma- 
no alzada 

• Borrar areas y letras 

• Llenado de areas 
(pintar) 

• Cargar formas 
Funciones especiales 
del lapiz 

Existe una pequefta 
cruz que acompafia al 
lapiz. Entre la cruz y el 


• Llenar el area con u- 
na textura preseleccio- 
nada con la tecla Select 

• Trazar una linea entre 
los puntos 

• Trazar un cfrculo en- 
tre los puntos 

• Trazar un rectangulo 
cuya diagonal pasa por 
los puntos 

• Cambiar el color del 
punto 

• Seleccionar la textu- 
ra. 

Bloque Estilista 
Este bloque se utiliza 
cuando se desea crear 


una pagina, una moldu- 
ra envolvente o un tftu- 
lo, que sera ampliado 
cuando se pase al blo- 
que redaccion o dise- 
fiador. 

En la parte inferior iz- 
quierda se visualiza un 
menu, debajo de una 
ventana donde* se 
muestran las coordena- 
das en milfmetros de la 
posicion actual del la- 
piz, si es que 6ste esta 
siendo utilizado. 

Bloque Impresor 
Con este bloque se 
puede imprimir la pa- 
gina y elegir la canti- 
dad de pasadas. 

Como conclusion, este 
programa para MSX1 
nos recuerda el News- 
master de PC y real- 
mente es un utilitario 
interesante para el u- 
suario inspirado y con 
configuracion comple- 
ta. 


i 

CONSULTADAS; 

Real Time y 
IIRecf . PointJI 


SOFT 


— LOS ESPECIALIST AS — 

MAS DE 10.000 TITULOS EN DISCO Y CASSETTE 
PARA MSX1-MSX2-SPECTRUM-COMMODORE DESDE A 2 

EXCLUSIVO:MSX2 EN CASSETTE TURBO 
TIEMPO DE CARGA PROM. 7MIN 

LAS NOVEDADES ANTES QUE NADIE 

TODOS LOS UTILITARIOS PARA MASX1.2 
SPECTRUM- COMMODORE 
CASSETTE 1 2 JUEGOS MSX A 55 
CASSETTE 12 JUEGOS SPECTRUM A 55 
CASSETTE 20 JUEGOS COMMODORE A 55 
DISKETTES 3 1/2-5 1/2 - 8' - 

DISTRIBUIDOR AUTORIZADO TALENT 
Teclados MSXt - MSX2 - Disketteras -Monitores 
COMPRA - VENTA DE MAQUINAS MEJORAMOS CUALQUIER OFERTA 




DUDAS 

SISTEMATICAS 


Para comunicarse con nosotros 
deben escribirnos a "Load MSX", 
Mejico 625 - S°- piso (1097) 
Capital Federal. 


Tengo una MSX1 y qui- 
siera que me informen 
como funciona el sistema 
operativo, o bien donde 
puedo conseguir infor- 
mation al respecto. 
Desde ya muchas gracias. 

Ariel Bolognesi 

LOAD MSX 

A lo largo de varios nume- 
ros, que a continuation te 
informamos, han apareci- 
do artfculos relacionados 
con cl tema del DOS- 
MSX. Elios son: diciembre 
’87, febrero ’88, marzo ’88 
y mayo ’88. Alii encontra- 
ras una muy buena docu- 
mentation. 

De nada. 

COCTEL DE 
DUDAS 

1) Una vez que he creado 
el fuente de un progrania 
Assembler compilado 
con el M80, ^cual es el pa- 
so siguiente? ^Como se u- 
tiliza el L80? 

2) Estoy interesado en in- 
tercambios en disco o ca- 
sete. ^Pueden publicar 
mi direccion? 

Guillermo Di Camillo 
Rodriguez Pena 1560 
1663 San Miguel. Bs.As. 

664-8838 


LOAD MSX 

1) La explication relativa al 
“linkeador” excede el espa- 
cio disponi'ble para este co- 
rreo, por lo tanto te sugeri- 
mos un poco de paciencia. 
Como habras leido en nu- 
meros anteriores, estan pre- 
vistas notas que describiran 
todos los compiladorcs de- 
talladamente. 

2) Cumplimos pubiicando 
tu direccion. 

ASSEMBLER 
0 TURBO 

Soy poseedor de una Ta- 
lent MSX2 T urbo con una 
unidad de disco DPF-555, 
y tengo conocimientos de 
BASIC y codigo de ma- 
quina. 

Quisiera un informe so- 
bre los registros del VDP 
relacionados con el video 
de la MSX2 para poder 
programar en C.M. 
Desearia, tambien, que 
publiquen mi direccion 
para escribirme con u- 
suarios de MSX1 y 
MSX2, e intercambiar i- 
deas y trucos. 

Gracias. 

Dario Irigaray 
Zapiola 4532 
1429 Cap.Fed. 


LOAD MSX 

En el numero anterior co- 
rrespondiente a marzo ’89, 
habras visto la tabla y la in- 
formation que nos solici- 
ts. 

DUDAS 

EXISTENCIALES 

Soy poseedor de una 
MSX y lector de LOAD 
desde el numero seis. Les 
escribo para que me acla- 
ren algunas dudas. 

Desde el punto de vista de 
un fana de los video jue- 
gos, la MSX-2 supera am- 
pliamente a la MSX-1 en 
capacidades graficas, pe- 
ro desde el lado serio, 
^que ventajas tiene? 
<,Que desventajas tienen 
las computadoras de 8 
bits frente a las de 16 o 32 
bits? 

^Es verdad que las com- 
putadoras de 8 bits no tie- 
nen futuro? ^Conviene 
seguir apostandole a la 
MSX? 

Los felicito por la re vista 
que es buenisima y muy 
util. ;Sigan asi! 

Guillermo N. Serrat 



LOAD MSX 

Ante todo, gracias por los 
elogios. 

Utilizando tus mismas pa- 
labras, nosotros estamos 
seguros de que compartiras 
el siguiente concepto: todo 
defensor y fiel seguidor de 
cualquier idea (en este caso 
la norma MSX) debe ha- 
cerlo con los ojos abiertos y 
sustentado por conoci- 
mientos que respondan a la 
realidad. Unacomputadora 
de 8 bits no tiene ningun fu- 
turo frente a una de 16 o 32 
bits, por la sencilla razon de 
que ambas no fueron con- 
cebidas para compctir en- 
tre si, sino que, por el con- 
trario, las segundas son 
consecuencia del desarro- 
llo tecnologico de las pri- 
meras y por lo tanto es logi- 
co e imperativo que supe- 
ren a sus antecesoras (caso 
contrario, jque desilu- 
sion!). 

Aplicando este concepto a 
tu pregunta sobre las 
MSX1 y MSX2, puede de- 
cirse que la principal y apa- . 
bullante ventaja de ia 2 so- 
bre la 1 esti relacionada 
con el procesamiento de vi- 
deo. Filosofias aparte, £le- 
xstc la nota a Frank Bcrbe- 
rich, de ASCII Corp., en el 
numero de noviembre ’88? 
Por ultimo, apostar o no a 
MSX depende exclusiva- 
mente de cuales son los 
proyectos con vistas a la u- 
tilizacion futura que cada 
uno le dara a su computa- 
dora. 
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PC IBM COMPATIBLES - DREAN COMMODORE - MSX - SPECTRUM 







Computadora ^ 
Personal TPC-310 

Caracteristicas: 


MicroprocesadorZ80A-3,58 MHz. 
128 KB de memoria principal. 

1 28 KB de memoria de video. 

48 KB de MSX-BASIC Extendido, 
Version 2.0. 

32 KB de compilador Turbo BASIC 
Incluye programs en ROM con 
cuatro funciones de accesorios: 
calculadora, reloj, calendario y 
juegode quince. 

Almacenamiento permanente de 
parametros preferidos: modo de 
pantalla, color de fondo, senales 
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auditivas, mensajes, etc., y 



password para control reservado de 
acceso. 

Teclado profesional ergonomico de 
73teclas. 

Nuevos modos graficos incluyendo 
texto de 80 columnas y resolucion 
de512 x 212 pixels multicolor. 

Reloj con dos alarmas y calendario 
permanente con bateria de backup. 
Capacidad de sobreimpresion de 
imagenes .y digitalizacion de video. 
Grabacion de imagenes en diskette. 
Soportede RAM-Disk. 


Conozca Talent MSX 2 Turbo. 

La ventaja de un equipo 
profesional de super-tecnologia. 

Y la simplicidad de una maquina 
de pensar domestics. 

Con abundante memoria. Un buen 
lenguaje basic incorporado. 
Amplias posibilidades de 
conexion a perifericos. 

Y mas. Por menos. 

Porque el futuro esta cerca. 
Tengaloya. 


Soporte de Light Pen. 

Conector para perifericos de 
digitalizacion de imagenes. 

Salida a TV PAL-N y NTSC con 
modulador incorporado. 

Salidas para impresora paralela, 
video compuesto y RGB analogico 
incorporadas. 

Totalmente compatible con 
software, accesorios y perifericos 
deMSXI. 


Turbo 



